home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-10-03 | 15.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 4d 41 4e 44 45 4c 42 52 |..... > |MANDELBR|
|00000010| 4f 54 0d 00 14 04 0d 00 | 1e 34 de 20 63 6f 64 65 |OT......|.4. code|
|00000020| 20 31 30 30 30 30 2c 78 | 62 75 66 66 65 72 20 32 | 10000,x|buffer 2|
|00000030| 35 36 2a 32 35 36 2a 32 | 2c 73 62 75 66 66 65 72 |56*256*2|,sbuffer|
|00000040| 20 33 32 30 2a 32 35 36 | 2a 32 0d 00 28 19 de 20 | 320*256|*2..(.. |
|00000050| 6f 6c 64 78 25 28 32 30 | 29 2c 6f 6c 64 79 25 28 |oldx%(20|),oldy%(|
|00000060| 32 30 29 0d 00 32 04 0d | 00 3c 1d 6d 61 78 72 65 |20)..2..|.<.maxre|
|00000070| 6e 64 3d 34 3a 6c 6f 67 | 6d 61 78 68 65 69 67 68 |nd=4:log|maxheigh|
|00000080| 74 3d 31 33 0d 00 46 04 | 0d 00 50 0f f2 63 6f 6d |t=13..F.|..P..com|
|00000090| 70 69 6c 65 28 32 29 0d | 00 5a 04 0d 00 64 0a eb |pile(2).|.Z...d..|
|000000a0| 20 31 35 3a 87 0d 00 6e | 0c 2a 50 4f 49 4e 54 45 | 15:...n|.*POINTE|
|000000b0| 52 0d 00 78 0a c8 97 20 | 88 20 32 0d 00 82 04 0d |R..x... |. 2.....|
|000000c0| 00 8c 1f f2 62 75 74 74 | 6f 6e 5f 6f 70 65 6e 28 |....butt|on_open(|
|000000d0| 31 30 32 38 2c 31 32 38 | 30 2c 39 38 30 29 0d 00 |1028,128|0,980)..|
|000000e0| 96 04 0d 00 a0 28 f2 62 | 75 74 74 6f 6e 5f 61 72 |.....(.b|utton_ar|
|000000f0| 65 61 28 30 2c 34 2c 31 | 30 32 30 2c 31 30 32 30 |ea(0,4,1|020,1020|
|00000100| 2c 22 46 4e 65 64 69 74 | 22 29 0d 00 aa 04 0d 00 |,"FNedit|")......|
|00000110| b4 2b 73 63 61 6c 65 62 | 75 74 74 6f 6e 3d a4 62 |.+scaleb|utton=.b|
|00000120| 75 74 74 6f 6e 5f 6d 73 | 67 28 22 4d 61 67 3a 20 |utton_ms|g("Mag: |
|00000130| 20 20 20 20 20 20 20 22 | 29 0d 00 be 13 f2 62 75 | "|).....bu|
|00000140| 74 74 6f 6e 5f 6e 65 77 | 6c 69 6e 65 0d 00 c8 04 |tton_new|line....|
|00000150| 0d 00 d2 28 f2 62 75 74 | 74 6f 6e 5f 65 76 61 6c |...(.but|ton_eval|
|00000160| 28 22 2d 22 2c 22 46 4e | 73 65 74 64 65 6e 73 69 |("-","FN|setdensi|
|00000170| 74 79 28 2d 31 29 22 29 | 0d 00 dc 2d 64 65 6e 73 |ty(-1)")|...-dens|
|00000180| 69 74 79 62 75 74 74 6f | 6e 3d a4 62 75 74 74 6f |itybutto|n=.butto|
|00000190| 6e 5f 6d 73 67 28 22 44 | 65 6e 73 69 74 79 3a 20 |n_msg("D|ensity: |
|000001a0| 20 20 20 22 29 0d 00 e6 | 27 f2 62 75 74 74 6f 6e | ")...|'.button|
|000001b0| 5f 65 76 61 6c 28 22 2b | 22 2c 22 46 4e 73 65 74 |_eval("+|","FNset|
|000001c0| 64 65 6e 73 69 74 79 28 | 31 29 22 29 0d 00 f0 13 |density(|1)")....|
|000001d0| f2 62 75 74 74 6f 6e 5f | 6e 65 77 6c 69 6e 65 0d |.button_|newline.|
|000001e0| 00 fa 04 0d 01 04 27 f2 | 62 75 74 74 6f 6e 5f 65 |......'.|button_e|
|000001f0| 76 61 6c 28 22 2d 22 2c | 22 46 4e 73 65 74 68 65 |val("-",|"FNsethe|
|00000200| 69 67 68 74 28 2d 31 29 | 22 29 0d 01 0e 2c 68 65 |ight(-1)|")...,he|
|00000210| 69 67 68 74 62 75 74 74 | 6f 6e 3d a4 62 75 74 74 |ightbutt|on=.butt|
|00000220| 6f 6e 5f 6d 73 67 28 22 | 48 65 69 67 68 74 3a 20 |on_msg("|Height: |
|00000230| 20 20 20 20 22 29 0d 01 | 18 26 f2 62 75 74 74 6f | ")..|.&.butto|
|00000240| 6e 5f 65 76 61 6c 28 22 | 2b 22 2c 22 46 4e 73 65 |n_eval("|+","FNse|
|00000250| 74 68 65 69 67 68 74 28 | 31 29 22 29 0d 01 22 13 |theight(|1)")..".|
|00000260| f2 62 75 74 74 6f 6e 5f | 6e 65 77 6c 69 6e 65 0d |.button_|newline.|
|00000270| 01 2c 04 0d 01 36 27 f2 | 62 75 74 74 6f 6e 5f 65 |.,...6'.|button_e|
|00000280| 76 61 6c 28 22 2d 22 2c | 22 46 4e 73 65 74 72 65 |val("-",|"FNsetre|
|00000290| 6e 64 65 72 28 2d 31 29 | 22 29 0d 01 40 2a 53 24 |nder(-1)|")..@*S$|
|000002a0| 3d 22 46 4e 72 65 6e 64 | 65 72 28 30 2c 30 2c 31 |="FNrend|er(0,0,1|
|000002b0| 30 32 34 2c 31 30 32 34 | 2c 6c 6f 67 68 65 69 67 |024,1024|,logheig|
|000002c0| 68 74 29 22 0d 01 4a 30 | 72 65 6e 64 65 72 62 75 |ht)"..J0|renderbu|
|000002d0| 74 74 6f 6e 3d a4 62 75 | 74 74 6f 6e 5f 65 76 61 |tton=.bu|tton_eva|
|000002e0| 6c 28 22 52 65 6e 64 65 | 72 3a 20 20 20 20 20 22 |l("Rende|r: "|
|000002f0| 2c 53 24 29 0d 01 54 26 | f2 62 75 74 74 6f 6e 5f |,S$)..T&|.button_|
|00000300| 65 76 61 6c 28 22 2b 22 | 2c 22 46 4e 73 65 74 72 |eval("+"|,"FNsetr|
|00000310| 65 6e 64 65 72 28 31 29 | 22 29 0d 01 5e 13 f2 62 |ender(1)|")..^..b|
|00000320| 75 74 74 6f 6e 5f 6e 65 | 77 6c 69 6e 65 0d 01 68 |utton_ne|wline..h|
|00000330| 04 0d 01 72 27 f2 62 75 | 74 74 6f 6e 5f 65 76 61 |...r'.bu|tton_eva|
|00000340| 6c 28 22 5a 6f 6f 6d 20 | 6f 75 74 22 2c 22 46 4e |l("Zoom |out","FN|
|00000350| 75 6e 7a 6f 6f 6d 22 29 | 0d 01 7c 18 f4 20 50 52 |unzoom")|..|.. PR|
|00000360| 4f 43 62 75 74 74 6f 6e | 5f 6e 65 77 6c 69 6e 65 |OCbutton|_newline|
|00000370| 0d 01 86 04 0d 01 90 25 | f2 62 75 74 74 6f 6e 5f |.......%|.button_|
|00000380| 65 76 61 6c 28 22 43 6f | 6c 6f 75 72 22 2c 22 46 |eval("Co|lour","F|
|00000390| 4e 63 6f 6c 6f 75 72 22 | 29 0d 01 9a 13 f2 62 75 |Ncolour"|).....bu|
|000003a0| 74 74 6f 6e 5f 6e 65 77 | 6c 69 6e 65 0d 01 a4 04 |tton_new|line....|
|000003b0| 0d 01 ae 27 f2 62 75 74 | 74 6f 6e 5f 65 76 61 6c |...'.but|ton_eval|
|000003c0| 28 22 52 65 73 74 61 72 | 74 22 2c 22 46 4e 72 65 |("Restar|t","FNre|
|000003d0| 73 74 61 72 74 22 29 0d | 01 b8 18 f4 20 50 52 4f |start").|.... PRO|
|000003e0| 43 62 75 74 74 6f 6e 5f | 6e 65 77 6c 69 6e 65 0d |Cbutton_|newline.|
|000003f0| 01 c2 04 0d 01 cc 21 f2 | 62 75 74 74 6f 6e 5f 65 |......!.|button_e|
|00000400| 76 61 6c 28 22 51 75 69 | 74 22 2c 22 46 4e 71 75 |val("Qui|t","FNqu|
|00000410| 69 74 22 29 0d 01 d6 13 | f2 62 75 74 74 6f 6e 5f |it")....|.button_|
|00000420| 6e 65 77 6c 69 6e 65 0d | 01 e0 04 0d 01 ea 0e 5a |newline.|.......Z|
|00000430| 3d a4 72 65 73 74 61 72 | 74 0d 01 f4 04 0d 01 fe |=.restar|t.......|
|00000440| 05 f5 0d 02 08 4b f2 6d | 61 6e 64 65 6c 62 72 6f |.....K.m|andelbro|
|00000450| 74 28 64 77 78 2c 64 77 | 79 2c 64 77 78 73 2c 64 |t(dwx,dw|y,dwxs,d|
|00000460| 77 79 73 2c 78 25 2c 79 | 25 2c 31 3c 3c 28 32 30 |wys,x%,y|%,1<<(20|
|00000470| 2d 73 63 61 6c 65 29 2c | 31 3c 3c 6c 6f 67 68 65 |-scale),|1<<loghe|
|00000480| 69 67 68 74 2c 64 65 6e | 73 69 74 79 29 0d 02 12 |ight,den|sity)...|
|00000490| 23 64 77 78 3d 30 3a 64 | 77 79 3d 30 3a 64 77 78 |#dwx=0:d|wy=0:dwx|
|000004a0| 73 3d 31 30 32 34 3a 64 | 77 79 73 3d 31 30 32 34 |s=1024:d|wys=1024|
|000004b0| 0d 02 1c 10 f2 62 75 74 | 74 6f 6e 5f 70 6f 6c 6c |.....but|ton_poll|
|000004c0| 0d 02 26 07 fd 20 a3 0d | 02 30 04 0d 02 3a 05 e0 |..&.. ..|.0...:..|
|000004d0| 0d 02 44 04 0d 02 4e 4b | f4 20 2a 2a 2a 2a 2a 2a |..D...NK|. ******|
|000004e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000520| 02 58 04 0d 02 62 42 dd | 20 f2 6d 61 6e 64 65 6c |.X...bB.| .mandel|
|00000530| 62 72 6f 74 28 78 70 6f | 73 2c 79 70 6f 73 2c 78 |brot(xpo|s,ypos,x|
|00000540| 73 69 7a 65 2c 79 73 69 | 7a 65 2c 78 63 2c 79 63 |size,ysi|ze,xc,yc|
|00000550| 2c 73 74 65 70 2c 68 65 | 69 67 68 74 2c 64 65 6e |,step,he|ight,den|
|00000560| 73 69 74 79 29 0d 02 6c | 07 ea 20 53 0d 02 76 10 |sity)..l|.. S..v.|
|00000570| 53 3d 34 3c 3c 64 65 6e | 73 69 74 79 0d 02 80 25 |S=4<<den|sity...%|
|00000580| 78 70 6f 73 3d 53 2a a8 | 28 78 70 6f 73 2f 53 29 |xpos=S*.|(xpos/S)|
|00000590| 3a 79 70 6f 73 3d 53 2a | a8 28 79 70 6f 73 2f 53 |:ypos=S*|.(ypos/S|
|000005a0| 29 0d 02 8a 29 78 73 69 | 7a 65 3d 53 2a a8 28 78 |)...)xsi|ze=S*.(x|
|000005b0| 73 69 7a 65 2f 53 29 3a | 79 73 69 7a 65 3d 53 2a |size/S):|ysize=S*|
|000005c0| a8 28 79 73 69 7a 65 2f | 53 29 0d 02 94 1b e7 20 |.(ysize/|S)..... |
|000005d0| 78 73 69 7a 65 3d 30 20 | 84 20 79 73 69 7a 65 3d |xsize=0 |. ysize=|
|000005e0| 30 20 8c 20 e1 0d 02 9e | 17 21 5f 78 63 3d 78 63 |0 . ....|.!_xc=xc|
|000005f0| 2b 78 70 6f 73 2f 34 2a | 73 74 65 70 0d 02 a8 25 |+xpos/4*|step...%|
|00000600| 21 5f 79 63 3d 79 63 2b | 28 32 35 36 2d 28 79 70 |!_yc=yc+|(256-(yp|
|00000610| 6f 73 2b 79 73 69 7a 65 | 29 2f 34 29 2a 73 74 65 |os+ysize|)/4)*ste|
|00000620| 70 0d 02 b2 3b 21 5f 73 | 74 65 70 3d 73 74 65 70 |p...;!_s|tep=step|
|00000630| 3a 21 5f 78 73 69 7a 65 | 3d 78 73 69 7a 65 3a 21 |:!_xsize|=xsize:!|
|00000640| 5f 79 73 69 7a 65 3d 79 | 73 69 7a 65 3a 21 5f 68 |_ysize=y|size:!_h|
|00000650| 65 69 67 68 74 3d 68 65 | 69 67 68 74 0d 02 bc 3d |eight=he|ight...=|
|00000660| 21 5f 73 63 72 65 65 6e | 3d a4 73 63 72 65 65 6e |!_screen|=.screen|
|00000670| 28 78 70 6f 73 2c 79 70 | 6f 73 2c 78 73 69 7a 65 |(xpos,yp|os,xsize|
|00000680| 2c 79 73 69 7a 65 29 3a | 21 5f 64 65 6e 73 69 74 |,ysize):|!_densit|
|00000690| 79 3d 64 65 6e 73 69 74 | 79 0d 02 c6 12 d6 20 65 |y=densit|y..... e|
|000006a0| 76 65 6e 74 5f 65 6e 61 | 62 6c 65 0d 02 d0 10 d6 |vent_ena|ble.....|
|000006b0| 20 6d 61 6e 64 65 6c 62 | 72 6f 74 0d 02 da 13 d6 | mandelb|rot.....|
|000006c0| 20 65 76 65 6e 74 5f 64 | 69 73 61 62 6c 65 0d 02 | event_d|isable..|
|000006d0| e4 05 e1 0d 02 ee 04 0d | 02 f8 2d dd 20 f2 65 78 |........|..-. .ex|
|000006e0| 74 72 61 63 74 28 78 70 | 6f 73 2c 79 70 6f 73 2c |tract(xp|os,ypos,|
|000006f0| 78 73 69 7a 65 2c 79 73 | 69 7a 65 2c 64 65 6e 73 |xsize,ys|ize,dens|
|00000700| 69 74 79 29 0d 03 02 47 | 21 5f 78 73 69 7a 65 3d |ity)...G|!_xsize=|
|00000710| 78 73 69 7a 65 3a 21 5f | 79 73 69 7a 65 3d 79 73 |xsize:!_|ysize=ys|
|00000720| 69 7a 65 3a 21 5f 73 63 | 72 65 65 6e 3d a4 73 63 |ize:!_sc|reen=.sc|
|00000730| 72 65 65 6e 28 78 70 6f | 73 2c 79 70 6f 73 2c 78 |reen(xpo|s,ypos,x|
|00000740| 73 69 7a 65 2c 79 73 69 | 7a 65 29 0d 03 0c 27 21 |size,ysi|ze)...'!|
|00000750| 5f 64 65 6e 73 69 74 79 | 3d 64 65 6e 73 69 74 79 |_density|=density|
|00000760| 3a 21 5f 78 62 75 66 66 | 65 72 3d 78 62 75 66 66 |:!_xbuff|er=xbuff|
|00000770| 65 72 0d 03 16 0d d6 20 | 65 78 74 72 61 63 74 0d |er..... |extract.|
|00000780| 03 20 05 e1 0d 03 2a 04 | 0d 03 34 2c dd 20 f2 69 |. ....*.|..4,. .i|
|00000790| 6e 73 65 72 74 28 78 70 | 6f 73 2c 79 70 6f 73 2c |nsert(xp|os,ypos,|
|000007a0| 78 73 69 7a 65 2c 79 73 | 69 7a 65 2c 64 65 6e 73 |xsize,ys|ize,dens|
|000007b0| 69 74 79 29 0d 03 3e 47 | 21 5f 78 73 69 7a 65 3d |ity)..>G|!_xsize=|
|000007c0| 78 73 69 7a 65 3a 21 5f | 79 73 69 7a 65 3d 79 73 |xsize:!_|ysize=ys|
|000007d0| 69 7a 65 3a 21 5f 73 63 | 72 65 65 6e 3d a4 73 63 |ize:!_sc|reen=.sc|
|000007e0| 72 65 65 6e 28 78 70 6f | 73 2c 79 70 6f 73 2c 78 |reen(xpo|s,ypos,x|
|000007f0| 73 69 7a 65 2c 79 73 69 | 7a 65 29 0d 03 48 27 21 |size,ysi|ze)..H'!|
|00000800| 5f 64 65 6e 73 69 74 79 | 3d 64 65 6e 73 69 74 79 |_density|=density|
|00000810| 3a 21 5f 78 62 75 66 66 | 65 72 3d 78 62 75 66 66 |:!_xbuff|er=xbuff|
|00000820| 65 72 0d 03 52 0c d6 20 | 69 6e 73 65 72 74 0d 03 |er..R.. |insert..|
|00000830| 5c 05 e1 0d 03 66 04 0d | 03 70 36 dd 20 f2 72 65 |\....f..|.p6. .re|
|00000840| 64 69 73 70 6c 61 79 28 | 78 70 6f 73 2c 79 70 6f |display(|xpos,ypo|
|00000850| 73 2c 78 73 69 7a 65 2c | 79 73 69 7a 65 2c 68 65 |s,xsize,|ysize,he|
|00000860| 69 67 68 74 2c 64 65 6e | 73 69 74 79 29 0d 03 7a |ight,den|sity)..z|
|00000870| 47 21 5f 78 73 69 7a 65 | 3d 78 73 69 7a 65 3a 21 |G!_xsize|=xsize:!|
|00000880| 5f 79 73 69 7a 65 3d 79 | 73 69 7a 65 3a 21 5f 73 |_ysize=y|size:!_s|
|00000890| 63 72 65 65 6e 3d a4 73 | 63 72 65 65 6e 28 78 70 |creen=.s|creen(xp|
|000008a0| 6f 73 2c 79 70 6f 73 2c | 78 73 69 7a 65 2c 79 73 |os,ypos,|xsize,ys|
|000008b0| 69 7a 65 29 0d 03 84 25 | 21 5f 68 65 69 67 68 74 |ize)...%|!_height|
|000008c0| 3d 68 65 69 67 68 74 3a | 21 5f 64 65 6e 73 69 74 |=height:|!_densit|
|000008d0| 79 3d 64 65 6e 73 69 74 | 79 0d 03 8e 0f d6 20 72 |y=densit|y..... r|
|000008e0| 65 64 69 73 70 6c 61 79 | 0d 03 98 05 e1 0d 03 a2 |edisplay|........|
|000008f0| 04 0d 03 ac 23 dd 20 f2 | 63 6c 65 61 72 28 78 70 |....#. .|clear(xp|
|00000900| 6f 73 2c 79 70 6f 73 2c | 78 73 69 7a 65 2c 79 73 |os,ypos,|xsize,ys|
|00000910| 69 7a 65 29 0d 03 b6 47 | 21 5f 78 73 69 7a 65 3d |ize)...G|!_xsize=|
|00000920| 78 73 69 7a 65 3a 21 5f | 79 73 69 7a 65 3d 79 73 |xsize:!_|ysize=ys|
|00000930| 69 7a 65 3a 21 5f 73 63 | 72 65 65 6e 3d a4 73 63 |ize:!_sc|reen=.sc|
|00000940| 72 65 65 6e 28 78 70 6f | 73 2c 79 70 6f 73 2c 78 |reen(xpo|s,ypos,x|
|00000950| 73 69 7a 65 2c 79 73 69 | 7a 65 29 0d 03 c0 0b d6 |size,ysi|ze).....|
|00000960| 20 63 6c 65 61 72 0d 03 | ca 05 e1 0d 03 d4 04 0d | clear..|........|
|00000970| 03 de 36 dd 20 a4 72 65 | 6e 64 65 72 28 78 70 6f |..6. .re|nder(xpo|
|00000980| 73 2c 79 70 6f 73 2c 78 | 73 69 7a 65 2c 79 73 69 |s,ypos,x|size,ysi|
|00000990| 7a 65 2c 6c 6f 67 68 65 | 69 67 68 74 29 3a ea 20 |ze,loghe|ight):. |
|000009a0| 58 2c 59 2c 4b 0d 03 e8 | 14 f5 3a c8 97 20 58 2c |X,Y,K...|..:.. X,|
|000009b0| 59 2c 4b 3a fd 20 4b 3d | 30 0d 03 f2 08 c8 97 20 |Y,K:. K=|0...... |
|000009c0| 87 0d 03 fc 47 21 5f 78 | 73 69 7a 65 3d 78 73 69 |....G!_x|size=xsi|
|000009d0| 7a 65 3a 21 5f 79 73 69 | 7a 65 3d 79 73 69 7a 65 |ze:!_ysi|ze=ysize|
|000009e0| 3a 21 5f 73 63 72 65 65 | 6e 3d a4 73 63 72 65 65 |:!_scree|n=.scree|
|000009f0| 6e 28 78 70 6f 73 2c 79 | 70 6f 73 2c 78 73 69 7a |n(xpos,y|pos,xsiz|
|00000a00| 65 2c 79 73 69 7a 65 29 | 0d 04 06 19 21 5f 72 65 |e,ysize)|....!_re|
|00000a10| 6e 64 3d 72 65 6e 64 2b | 6c 6f 67 68 65 69 67 68 |nd=rend+|logheigh|
|00000a20| 74 0d 04 10 12 d6 20 65 | 76 65 6e 74 5f 65 6e 61 |t..... e|vent_ena|
|00000a30| 62 6c 65 0d 04 1a 0c d6 | 20 72 65 6e 64 65 72 0d |ble.....| render.|
|00000a40| 04 24 13 d6 20 65 76 65 | 6e 74 5f 64 69 73 61 62 |.$.. eve|nt_disab|
|00000a50| 6c 65 0d 04 2e 12 f5 3a | c8 97 20 58 2c 59 2c 4b |le.....:|.. X,Y,K|
|00000a60| 3a fd 20 4b 0d 04 38 32 | f2 72 65 64 69 73 70 6c |:. K..82|.redispl|
|00000a70| 61 79 28 30 2c 30 2c 31 | 30 32 34 2c 31 30 32 34 |ay(0,0,1|024,1024|
|00000a80| 2c 31 3c 3c 6c 6f 67 68 | 65 69 67 68 74 2c 64 65 |,1<<logh|eight,de|
|00000a90| 6e 73 69 74 79 29 0d 04 | 42 08 c8 97 20 ee 0d 04 |nsity)..|B... ...|
|00000aa0| 4c 06 3d 30 0d 04 56 04 | 0d 04 60 18 dd 20 a4 73 |L.=0..V.|..`.. .s|
|00000ab0| 63 72 65 65 6e 28 58 2c | 59 2c 58 53 2c 59 53 29 |creen(X,|Y,XS,YS)|
|00000ac0| 0d 04 6a 2a ea 20 42 3a | de 20 42 20 31 32 3a 42 |..j*. B:|. B 12:B|
|00000ad0| 21 30 3d 31 34 39 3a 42 | 21 34 3d 2d 31 3a c8 99 |!0=149:B|!4=-1:..|
|00000ae0| 20 26 33 31 2c 42 2c 42 | 2b 38 0d 04 74 2c 3d 28 | &31,B,B|+8..t,=(|
|00000af0| 42 21 38 29 2b 36 34 30 | 2a 28 32 35 36 2d a8 28 |B!8)+640|*(256-.(|
|00000b00| 59 53 2f 34 29 2d a8 28 | 59 2f 34 29 29 2b 32 2a |YS/4)-.(|Y/4))+2*|
|00000b10| a8 28 58 2f 34 29 0d 04 | 7e 04 0d 04 88 0b dd 20 |.(X/4)..|~...... |
|00000b20| f2 73 68 6f 77 0d 04 92 | 2a f2 62 75 74 74 6f 6e |.show...|*.button|
|00000b30| 5f 77 72 69 74 65 28 73 | 63 61 6c 65 62 75 74 74 |_write(s|calebutt|
|00000b40| 6f 6e 2c c3 28 31 3c 3c | 73 63 61 6c 65 29 29 0d |on,.(1<<|scale)).|
|00000b50| 04 9c 2f f2 62 75 74 74 | 6f 6e 5f 77 72 69 74 65 |../.butt|on_write|
|00000b60| 28 68 65 69 67 68 74 62 | 75 74 74 6f 6e 2c c3 28 |(heightb|utton,.(|
|00000b70| 31 3c 3c 6c 6f 67 68 65 | 69 67 68 74 29 29 0d 04 |1<<loghe|ight))..|
|00000b80| a6 35 f2 62 75 74 74 6f | 6e 5f 77 72 69 74 65 28 |.5.butto|n_write(|
|00000b90| 64 65 6e 73 69 74 79 62 | 75 74 74 6f 6e 2c 22 31 |densityb|utton,"1|
|00000ba0| 2f 22 2b c3 28 31 3c 3c | 32 2a 64 65 6e 73 69 74 |/"+.(1<<|2*densit|
|00000bb0| 79 29 29 0d 04 b0 0e e7 | 20 72 65 6e 64 3e 30 20 |y)).....| rend>0 |
|00000bc0| 8c 0d 04 ba 2f f2 62 75 | 74 74 6f 6e 5f 77 72 69 |..../.bu|tton_wri|
|00000bd0| 74 65 28 72 65 6e 64 65 | 72 62 75 74 74 6f 6e 2c |te(rende|rbutton,|
|00000be0| 22 31 2f 22 2b c3 28 31 | 3c 3c 72 65 6e 64 29 29 |"1/"+.(1|<<rend))|
|00000bf0| 0d 04 c4 05 cc 0d 04 ce | 2b f2 62 75 74 74 6f 6e |........|+.button|
|00000c00| 5f 77 72 69 74 65 28 72 | 65 6e 64 65 72 62 75 74 |_write(r|enderbut|
|00000c10| 74 6f 6e 2c c3 28 31 3c | 3c 2d 72 65 6e 64 29 29 |ton,.(1<|<-rend))|
|00000c20| 0d 04 d8 05 cd 0d 04 e2 | 05 e1 0d 04 ec 04 0d 04 |........|........|
|00000c30| f6 19 dd 20 f2 6d 6f 75 | 73 65 28 f8 20 58 2c f8 |... .mou|se(. X,.|
|00000c40| 20 59 2c f8 20 4b 29 0d | 05 00 22 c8 97 20 58 2c | Y,. K).|..".. X,|
|00000c50| 59 2c 4b 3a 58 3d 34 2a | a8 28 58 2f 34 29 3a 59 |Y,K:X=4*|.(X/4):Y|
|00000c60| 3d 34 2a a8 28 59 2f 34 | 29 0d 05 0a 05 e1 0d 05 |=4*.(Y/4|).......|
|00000c70| 14 04 0d 05 1e 16 dd 20 | a4 72 65 73 74 61 72 74 |....... |.restart|
|00000c80| 3a ea 20 58 2c 59 2c 4b | 0d 05 28 14 f5 3a c8 97 |:. X,Y,K|..(..:..|
|00000c90| 20 58 2c 59 2c 4b 3a fd | 20 4b 3d 30 0d 05 32 08 | X,Y,K:.| K=0..2.|
|00000ca0| c8 97 20 87 0d 05 3c 2b | 21 5f 6f 66 66 73 65 74 |.. ...<+|!_offset|
|00000cb0| 3d 73 62 75 66 66 65 72 | 2d a4 73 63 72 65 65 6e |=sbuffer|-.screen|
|00000cc0| 28 30 2c 30 2c 31 30 32 | 34 2c 31 30 32 34 29 0d |(0,0,102|4,1024).|
|00000cd0| 05 46 28 73 63 61 6c 65 | 3d 30 3a 6c 6f 67 68 65 |.F(scale|=0:loghe|
|00000ce0| 69 67 68 74 3d 35 3a 64 | 65 6e 73 69 74 79 3d 31 |ight=5:d|ensity=1|
|00000cf0| 3a 72 65 6e 64 3d 30 0d | 05 50 23 64 77 78 3d 30 |:rend=0.|.P#dwx=0|
|00000d00| 3a 64 77 79 3d 30 3a 64 | 77 78 73 3d 31 30 32 34 |:dwy=0:d|wxs=1024|
|00000d10| 3a 64 77 79 73 3d 31 30 | 32 34 0d 05 5a 17 78 25 |:dwys=10|24..Z.x%|
|00000d20| 3d 2d 32 3c 3c 32 36 3a | 79 25 3d 2d 32 3c 3c 32 |=-2<<26:|y%=-2<<2|
|00000d30| 36 0d 05 64 09 f2 73 68 | 6f 77 0d 05 6e 19 f2 63 |6..d..sh|ow..n..c|
|00000d40| 6c 65 61 72 28 30 2c 30 | 2c 31 30 32 34 2c 31 30 |lear(0,0|,1024,10|
|00000d50| 32 34 29 0d 05 78 08 c8 | 97 20 ee 0d 05 82 06 3d |24)..x..|. .....=|
|00000d60| 30 0d 05 8c 04 0d 05 96 | 17 dd 20 a4 71 75 69 74 |0.......|.. .quit|
|00000d70| 3a c8 97 20 87 3a eb 20 | 31 32 3a e0 0d 05 a0 04 |:.. .:. |12:.....|
|00000d80| 0d 05 aa 1b dd 20 a4 63 | 6f 6c 6f 75 72 3a ea 20 |..... .c|olour:. |
|00000d90| 58 2c 59 2c 4b 2c 49 25 | 2c 4a 25 0d 05 b4 08 c8 |X,Y,K,I%|,J%.....|
|00000da0| 97 20 87 0d 05 be 08 4a | 25 3d 30 0d 05 c8 05 f5 |. .....J|%=0.....|
|00000db0| 0d 05 d2 12 c8 96 3a c8 | 96 3a c8 96 3a c8 96 3a |......:.|.:..:..:|
|00000dc0| c8 96 0d 05 dc 0f e3 20 | 49 25 3d 31 20 b8 20 31 |....... |I%=1 . 1|
|00000dd0| 35 0d 05 e6 18 4b 25 3d | 28 28 49 25 3c 3c 34 29 |5....K%=|((I%<<4)|
|00000de0| 2b 4a 25 29 80 20 32 35 | 35 0d 05 f0 11 fb 20 49 |+J%). 25|5..... I|
|00000df0| 25 2c 4b 25 2c 4b 25 2c | 4b 25 0d 05 fa 08 ed 20 |%,K%,K%,|K%..... |
|00000e00| 49 25 0d 06 04 13 4a 25 | 3d 28 4a 25 2b 31 36 29 |I%....J%|=(J%+16)|
|00000e10| 80 20 32 35 35 0d 06 0e | 0c c8 97 20 58 2c 59 2c |. 255...|... X,Y,|
|00000e20| 4b 0d 06 18 09 fd 20 4b | 3d 30 0d 06 22 08 ef 20 |K..... K|=0..".. |
|00000e30| 32 30 0d 06 2c 08 c8 97 | 20 ee 0d 06 36 06 3d 30 |20..,...| ...6.=0|
|00000e40| 0d 06 40 04 0d 06 4a 22 | dd 20 f2 64 72 61 67 72 |..@...J"|. .dragr|
|00000e50| 65 63 74 28 f8 20 58 2c | f8 20 59 2c f8 20 58 53 |ect(. X,|. Y,. XS|
|00000e60| 2c f8 20 59 53 29 0d 06 | 54 13 ea 20 4b 2c 58 30 |,. YS)..|T.. K,X0|
|00000e70| 2c 59 30 2c 58 31 2c 59 | 31 0d 06 5e 11 f2 6d 6f |,Y0,X1,Y|1..^..mo|
|00000e80| 75 73 65 28 58 2c 59 2c | 4b 29 0d 06 68 37 c8 97 |use(X,Y,|K)..h7..|
|00000e90| 20 87 3a 58 30 3d 58 2b | 34 3a 59 30 3d 59 2d 34 | .:X0=X+|4:Y0=Y-4|
|00000ea0| 3a c8 97 20 c8 93 20 58 | 30 2c 30 2c 31 30 32 30 |:.. .. X|0,0,1020|
|00000eb0| 2d 58 30 2c 59 30 3a c8 | 97 20 b8 20 58 30 2c 59 |-X0,Y0:.|. . X0,Y|
|00000ec0| 30 0d 06 72 0a e6 20 33 | 2c 36 33 0d 06 7c 0d 58 |0..r.. 3|,63..|.X|
|00000ed0| 53 3d 34 3a 59 53 3d 34 | 0d 06 86 05 f5 0d 06 90 |S=4:YS=4|........|
|00000ee0| 13 c8 93 20 58 2c 59 2d | 59 53 2c 58 53 2c 59 53 |... X,Y-|YS,XS,YS|
|00000ef0| 0d 06 9a 2d f5 3a f2 6d | 6f 75 73 65 28 58 31 2c |...-.:.m|ouse(X1,|
|00000f00| 59 31 2c 4b 29 3a fd 20 | 58 31 3c 3e 58 30 20 84 |Y1,K):. |X1<>X0 .|
|00000f10| 20 59 31 3c 3e 59 30 20 | 84 20 4b 3d 30 0d 06 a4 | Y1<>Y0 |. K=0...|
|00000f20| 13 c8 93 20 58 2c 59 2d | 59 53 2c 58 53 2c 59 53 |... X,Y-|YS,XS,YS|
|00000f30| 0d 06 ae 1f 58 53 3d 58 | 31 2d 58 3a 59 53 3d 59 |....XS=X|1-X:YS=Y|
|00000f40| 2d 59 31 3a 58 30 3d 58 | 31 3a 59 30 3d 59 31 0d |-Y1:X0=X|1:Y0=Y1.|
|00000f50| 06 b8 09 fd 20 4b 3d 30 | 0d 06 c2 1c c8 97 20 c8 |.... K=0|...... .|
|00000f60| 93 20 30 2c 30 2c 31 32 | 37 39 2c 31 30 32 33 3a |. 0,0,12|79,1023:|
|00000f70| c8 97 20 ee 0d 06 cc 15 | 59 2d 3d 59 53 3a 58 53 |.. .....|Y-=YS:XS|
|00000f80| 2b 3d 34 3a 59 53 2b 3d | 34 0d 06 d6 05 e1 0d 06 |+=4:YS+=|4.......|
|00000f90| e0 04 0d 07 12 1f dd 20 | f2 7a 6f 6f 6d 3a ea 20 |....... |.zoom:. |
|00000fa0| 58 2c 59 2c 4b 2c 58 30 | 2c 59 30 2c 58 31 2c 59 |X,Y,K,X0|,Y0,X1,Y|
|00000fb0| 31 0d 07 1c 14 f5 20 c8 | 97 20 58 2c 59 2c 4b 3a |1..... .|. X,Y,K:|
|00000fc0| fd 20 4b 3d 30 0d 07 26 | 12 e7 20 73 63 61 6c 65 |. K=0..&|.. scale|
|00000fd0| 3d 32 30 20 8c 20 e1 0d | 07 30 08 c8 97 20 87 0d |=20 . ..|.0... ..|
|00000fe0| 07 3a 23 6f 6c 64 78 25 | 28 73 63 61 6c 65 29 3d |.:#oldx%|(scale)=|
|00000ff0| 78 25 3a 6f 6c 64 79 25 | 28 73 63 61 6c 65 29 3d |x%:oldy%|(scale)=|
|00001000| 79 25 0d 07 44 13 f2 6d | 6f 75 73 65 28 58 30 2c |y%..D..m|ouse(X0,|
|00001010| 59 30 2c 4b 29 0d 07 4e | 18 58 3d 58 30 2d 32 35 |Y0,K)..N|.X=X0-25|
|00001020| 36 3a e7 20 58 3c 30 20 | 8c 20 58 3d 30 0d 07 58 |6:. X<0 |. X=0..X|
|00001030| 18 59 3d 59 30 2d 32 35 | 36 3a e7 20 59 3c 30 20 |.Y=Y0-25|6:. Y<0 |
|00001040| 8c 20 59 3d 30 0d 07 62 | 1b c8 97 20 c8 93 20 58 |. Y=0..b|... .. X|
|00001050| 30 2d 58 2c 59 30 2d 59 | 2c 35 30 38 2c 35 30 38 |0-X,Y0-Y|,508,508|
|00001060| 0d 07 6c 0a e6 20 33 2c | 36 33 0d 07 76 05 f5 0d |..l.. 3,|63..v...|
|00001070| 07 80 12 c8 93 20 58 2c | 59 2c 35 30 38 2c 35 30 |..... X,|Y,508,50|
|00001080| 38 0d 07 8a 2b f5 3a f2 | 6d 6f 75 73 65 28 58 31 |8...+.:.|mouse(X1|
|00001090| 2c 59 31 2c 4b 29 3a fd | 20 58 31 3c 3e 58 30 20 |,Y1,K):.| X1<>X0 |
|000010a0| 84 20 59 31 3c 3e 59 30 | 20 84 20 4b 0d 07 94 12 |. Y1<>Y0| . K....|
|000010b0| c8 93 20 58 2c 59 2c 35 | 30 38 2c 35 30 38 0d 07 |.. X,Y,5|08,508..|
|000010c0| 9e 21 58 2b 3d 58 31 2d | 58 30 3a 59 2b 3d 59 31 |.!X+=X1-|X0:Y+=Y1|
|000010d0| 2d 59 30 3a 59 30 3d 59 | 31 3a 58 30 3d 58 31 0d |-Y0:Y0=Y|1:X0=X1.|
|000010e0| 07 a8 07 fd 20 4b 0d 07 | b2 17 c8 97 20 c8 93 20 |.... K..|.... .. |
|000010f0| 30 2c 30 2c 31 32 37 39 | 2c 31 30 32 33 0d 07 bc |0,0,1279|,1023...|
|00001100| 0b e7 20 4b 3d 31 20 8c | 0d 07 c6 39 78 25 2b 3d |.. K=1 .|...9x%+=|
|00001110| 58 2f 34 2a 28 31 3c 3c | 28 32 30 2d 73 63 61 6c |X/4*(1<<|(20-scal|
|00001120| 65 29 29 3a 79 25 2b 3d | 28 31 32 38 2d 59 2f 34 |e)):y%+=|(128-Y/4|
|00001130| 29 2a 28 31 3c 3c 28 32 | 30 2d 73 63 61 6c 65 29 |)*(1<<(2|0-scale)|
|00001140| 29 0d 07 d0 1b f2 65 78 | 74 72 61 63 74 28 58 2c |).....ex|tract(X,|
|00001150| 59 2c 35 31 32 2c 35 31 | 32 2c 30 29 0d 07 da 19 |Y,512,51|2,0)....|
|00001160| f2 63 6c 65 61 72 28 30 | 2c 30 2c 31 30 32 34 2c |.clear(0|,0,1024,|
|00001170| 31 30 32 34 29 0d 07 e4 | 1c f2 69 6e 73 65 72 74 |1024)...|..insert|
|00001180| 28 30 2c 30 2c 31 30 32 | 34 2c 31 30 32 34 2c 31 |(0,0,102|4,1024,1|
|00001190| 29 0d 07 ee 32 f2 72 65 | 64 69 73 70 6c 61 79 28 |)...2.re|display(|
|000011a0| 30 2c 30 2c 31 30 32 34 | 2c 31 30 32 34 2c 31 3c |0,0,1024|,1024,1<|
|000011b0| 3c 6c 6f 67 68 65 69 67 | 68 74 2c 64 65 6e 73 69 |<logheig|ht,densi|
|000011c0| 74 79 29 0d 07 f8 0c 73 | 63 61 6c 65 2b 3d 31 0d |ty)....s|cale+=1.|
|000011d0| 08 02 09 f2 73 68 6f 77 | 0d 08 03 05 cd 0d 08 0c |....show|........|
|000011e0| 08 c8 97 20 ee 0d 08 16 | 05 e1 0d 08 20 04 0d 08 |... ....|.... ...|
|000011f0| 2a 13 dd 20 a4 75 6e 7a | 6f 6f 6d 3a ea 20 58 2c |*.. .unz|oom:. X,|
|00001200| 59 0d 08 34 12 e7 20 73 | 63 61 6c 65 3d 30 20 8c |Y..4.. s|cale=0 .|
|00001210| 20 3d 30 0d 08 3e 08 c8 | 97 20 87 0d 08 48 0c 73 | =0..>..|. ...H.s|
|00001220| 63 61 6c 65 2d 3d 31 0d | 08 52 27 58 3d 34 2a 28 |cale-=1.|.R'X=4*(|
|00001230| 28 78 25 2d 6f 6c 64 78 | 25 28 73 63 61 6c 65 29 |(x%-oldx|%(scale)|
|00001240| 29 3e 3e 28 32 30 2d 73 | 63 61 6c 65 29 29 0d 08 |)>>(20-s|cale))..|
|00001250| 5c 2b 59 3d 35 31 32 2d | 34 2a 28 28 79 25 2d 6f |\+Y=512-|4*((y%-o|
|00001260| 6c 64 79 25 28 73 63 61 | 6c 65 29 29 3e 3e 28 32 |ldy%(sca|le))>>(2|
|00001270| 30 2d 73 63 61 6c 65 29 | 29 0d 08 66 1d f2 65 78 |0-scale)|)..f..ex|
|00001280| 74 72 61 63 74 28 30 2c | 30 2c 31 30 32 34 2c 31 |tract(0,|0,1024,1|
|00001290| 30 32 34 2c 31 29 0d 08 | 70 19 f2 63 6c 65 61 72 |024,1)..|p..clear|
|000012a0| 28 30 2c 30 2c 31 30 32 | 34 2c 31 30 32 34 29 0d |(0,0,102|4,1024).|
|000012b0| 08 7a 1a f2 69 6e 73 65 | 72 74 28 58 2c 59 2c 35 |.z..inse|rt(X,Y,5|
|000012c0| 31 32 2c 35 31 32 2c 30 | 29 0d 08 84 32 f2 72 65 |12,512,0|)...2.re|
|000012d0| 64 69 73 70 6c 61 79 28 | 30 2c 30 2c 31 30 32 34 |display(|0,0,1024|
|000012e0| 2c 31 30 32 34 2c 31 3c | 3c 6c 6f 67 68 65 69 67 |,1024,1<|<logheig|
|000012f0| 68 74 2c 64 65 6e 73 69 | 74 79 29 0d 08 8e 23 78 |ht,densi|ty)...#x|
|00001300| 25 3d 6f 6c 64 78 25 28 | 73 63 61 6c 65 29 3a 79 |%=oldx%(|scale):y|
|00001310| 25 3d 6f 6c 64 79 25 28 | 73 63 61 6c 65 29 0d 08 |%=oldy%(|scale)..|
|00001320| 98 09 f2 73 68 6f 77 0d | 08 a2 08 c8 97 20 ee 0d |...show.|..... ..|
|00001330| 08 ac 06 3d 30 0d 08 b6 | 04 0d 08 c0 19 dd 20 a4 |...=0...|...... .|
|00001340| 65 64 69 74 3a ea 20 58 | 2c 59 2c 58 53 2c 59 53 |edit:. X|,Y,XS,YS|
|00001350| 2c 5a 0d 08 ca 0a c8 8e | 20 4b 20 ca 0d 08 d4 0d |,Z......| K .....|
|00001360| c9 20 31 3a f2 7a 6f 6f | 6d 0d 08 d5 3b c9 20 32 |. 1:.zoo|m...;. 2|
|00001370| 3a f2 64 72 61 67 72 65 | 63 74 28 58 2c 59 2c 58 |:.dragre|ct(X,Y,X|
|00001380| 53 2c 59 53 29 3a 5a 3d | a4 72 65 6e 64 65 72 28 |S,YS):Z=|.render(|
|00001390| 58 2c 59 2c 58 53 2c 59 | 53 2c 6c 6f 67 68 65 69 |X,Y,XS,Y|S,loghei|
|000013a0| 67 68 74 29 0d 08 de 24 | c9 20 34 3a f2 64 72 61 |ght)...$|. 4:.dra|
|000013b0| 67 72 65 63 74 28 64 77 | 78 2c 64 77 79 2c 64 77 |grect(dw|x,dwy,dw|
|000013c0| 78 73 2c 64 77 79 73 29 | 0d 08 f2 05 cb 0d 08 fc |xs,dwys)|........|
|000013d0| 06 3d 30 0d 09 06 04 0d | 09 10 13 dd 20 a4 73 65 |.=0.....|.... .se|
|000013e0| 74 68 65 69 67 68 74 28 | 4e 29 0d 09 1a 08 c8 97 |theight(|N)......|
|000013f0| 20 87 0d 09 24 0b e7 20 | 4e 3d 31 20 8c 0d 09 2e | ...$.. |N=1 ....|
|00001400| 1e e7 20 6c 6f 67 68 65 | 69 67 68 74 3c 6c 6f 67 |.. loghe|ight<log|
|00001410| 6d 61 78 68 65 69 67 68 | 74 20 8c 0d 09 38 10 6c |maxheigh|t ...8.l|
|00001420| 6f 67 68 65 69 67 68 74 | 2b 3d 31 0d 09 42 32 f2 |ogheight|+=1..B2.|
|00001430| 72 65 64 69 73 70 6c 61 | 79 28 30 2c 30 2c 31 30 |redispla|y(0,0,10|
|00001440| 32 34 2c 31 30 32 34 2c | 31 3c 3c 6c 6f 67 68 65 |24,1024,|1<<loghe|
|00001450| 69 67 68 74 2c 64 65 6e | 73 69 74 79 29 0d 09 4c |ight,den|sity)..L|
|00001460| 05 cd 0d 09 56 05 cc 0d | 09 60 13 e7 20 6c 6f 67 |....V...|.`.. log|
|00001470| 68 65 69 67 68 74 3e 34 | 20 8c 0d 09 6a 10 6c 6f |height>4| ...j.lo|
|00001480| 67 68 65 69 67 68 74 2d | 3d 31 0d 09 74 24 f4 20 |gheight-|=1..t$. |
|00001490| 50 52 4f 43 63 6c 65 61 | 72 73 63 72 65 65 6e 28 |PROCclea|rscreen(|
|000014a0| 30 2c 30 2c 31 30 32 34 | 2c 31 30 32 34 29 0d 09 |0,0,1024|,1024)..|
|000014b0| 7e 32 f2 72 65 64 69 73 | 70 6c 61 79 28 30 2c 30 |~2.redis|play(0,0|
|000014c0| 2c 31 30 32 34 2c 31 30 | 32 34 2c 31 3c 3c 6c 6f |,1024,10|24,1<<lo|
|000014d0| 67 68 65 69 67 68 74 2c | 64 65 6e 73 69 74 79 29 |gheight,|density)|
|000014e0| 0d 09 88 05 cd 0d 09 92 | 05 cd 0d 09 9c 09 f2 73 |........|.......s|
|000014f0| 68 6f 77 0d 09 a6 08 c8 | 97 20 ee 0d 09 b0 06 3d |how.....|. .....=|
|00001500| 30 0d 09 ba 04 0d 09 c4 | 13 dd 20 a4 73 65 74 72 |0.......|.. .setr|
|00001510| 65 6e 64 65 72 28 4e 29 | 0d 09 ce 0b e7 20 4e 3d |ender(N)|..... N=|
|00001520| 31 20 8c 0d 09 d8 17 e7 | 20 72 65 6e 64 3e 2d 34 |1 ......| rend>-4|
|00001530| 20 8c 20 72 65 6e 64 2d | 3d 31 0d 09 e2 05 cc 0d | . rend-|=1......|
|00001540| 09 ec 1c e7 20 72 65 6e | 64 3c 6d 61 78 72 65 6e |.... ren|d<maxren|
|00001550| 64 20 8c 20 72 65 6e 64 | 2b 3d 31 0d 09 f6 05 cd |d . rend|+=1.....|
|00001560| 0d 0a 00 09 f2 73 68 6f | 77 0d 0a 0a 06 3d 30 0d |.....sho|w....=0.|
|00001570| 0a 14 04 0d 0a 1e 14 dd | 20 a4 73 65 74 64 65 6e |........| .setden|
|00001580| 73 69 74 79 28 4e 29 0d | 0a 28 08 c8 97 20 87 0d |sity(N).|.(... ..|
|00001590| 0a 32 0b e7 20 4e 3d 31 | 20 8c 0d 0a 3c 11 e7 20 |.2.. N=1| ...<.. |
|000015a0| 64 65 6e 73 69 74 79 3e | 30 20 8c 0d 0a 46 0e 64 |density>|0 ...F.d|
|000015b0| 65 6e 73 69 74 79 2d 3d | 31 0d 0a 50 32 f2 72 65 |ensity-=|1..P2.re|
|000015c0| 64 69 73 70 6c 61 79 28 | 30 2c 30 2c 31 30 32 34 |display(|0,0,1024|
|000015d0| 2c 31 30 32 34 2c 31 3c | 3c 6c 6f 67 68 65 69 67 |,1024,1<|<logheig|
|000015e0| 68 74 2c 64 65 6e 73 69 | 74 79 29 0d 0a 5a 05 cd |ht,densi|ty)..Z..|
|000015f0| 0d 0a 64 05 cc 0d 0a 6e | 11 e7 20 64 65 6e 73 69 |..d....n|.. densi|
|00001600| 74 79 3c 33 20 8c 0d 0a | 78 0e 64 65 6e 73 69 74 |ty<3 ...|x.densit|
|00001610| 79 2b 3d 31 0d 0a 82 24 | f4 20 50 52 4f 43 63 6c |y+=1...$|. PROCcl|
|00001620| 65 61 72 73 63 72 65 65 | 6e 28 30 2c 30 2c 31 30 |earscree|n(0,0,10|
|00001630| 32 34 2c 31 30 32 34 29 | 0d 0a 8c 32 f2 72 65 64 |24,1024)|...2.red|
|00001640| 69 73 70 6c 61 79 28 30 | 2c 30 2c 31 30 32 34 2c |isplay(0|,0,1024,|
|00001650| 31 30 32 34 2c 31 3c 3c | 6c 6f 67 68 65 69 67 68 |1024,1<<|logheigh|
|00001660| 74 2c 64 65 6e 73 69 74 | 79 29 0d 0a 96 05 cd 0d |t,densit|y)......|
|00001670| 0a a0 05 cd 0d 0a aa 09 | f2 73 68 6f 77 0d 0a b4 |........|.show...|
|00001680| 08 c8 97 20 ee 0d 0a be | 06 3d 30 0d 0a c8 04 0d |... ....|.=0.....|
|00001690| 0a d2 4b f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..K. ***|********|
|000016a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0a dc 04 0d 0a |********|**......|
|000016e0| e6 11 dd 20 f2 63 6f 6d | 70 69 6c 65 28 58 29 0d |... .com|pile(X).|
|000016f0| 0a f0 14 e3 20 70 61 73 | 73 3d 30 20 b8 20 58 20 |.... pas|s=0 . X |
|00001700| 88 20 58 0d 0a fa 0b 50 | 25 3d 63 6f 64 65 0d 0b |. X....P|%=code..|
|00001710| 04 0d 5b 4f 50 54 20 70 | 61 73 73 0d 0b 0e 0f 2e |..[OPT p|ass.....|
|00001720| 5f 78 63 3a 45 51 55 44 | 20 30 0d 0b 18 0f 2e 5f |_xc:EQUD| 0....._|
|00001730| 79 63 3a 45 51 55 44 20 | 30 0d 0b 22 11 2e 5f 73 |yc:EQUD |0..".._s|
|00001740| 74 65 70 3a 45 51 55 44 | 20 30 0d 0b 2c 12 2e 5f |tep:EQUD| 0..,.._|
|00001750| 78 73 69 7a 65 3a 45 51 | 55 44 20 30 0d 0b 36 12 |xsize:EQ|UD 0..6.|
|00001760| 2e 5f 79 73 69 7a 65 3a | 45 51 55 44 20 30 0d 0b |._ysize:|EQUD 0..|
|00001770| 40 13 2e 5f 68 65 69 67 | 68 74 3a 45 51 55 44 20 |@.._heig|ht:EQUD |
|00001780| 30 0d 0b 4a 13 2e 5f 73 | 63 72 65 65 6e 3a 45 51 |0..J.._s|creen:EQ|
|00001790| 55 44 20 30 0d 0b 54 14 | 2e 5f 64 65 6e 73 69 74 |UD 0..T.|._densit|
|000017a0| 79 3a 45 51 55 44 20 30 | 0d 0b 5e 14 2e 5f 78 62 |y:EQUD 0|..^.._xb|
|000017b0| 75 66 66 65 72 3a 45 51 | 55 44 20 30 0d 0b 68 12 |uffer:EQ|UD 0..h.|
|000017c0| 2e 5f 6d 6f 75 73 65 3a | 45 51 55 44 20 30 0d 0b |._mouse:|EQUD 0..|
|000017d0| 72 11 2e 5f 72 65 6e 64 | 3a 45 51 55 44 20 30 0d |r.._rend|:EQUD 0.|
|000017e0| 0b 7c 13 2e 5f 6f 66 66 | 73 65 74 3a 45 51 55 44 |.|.._off|set:EQUD|
|000017f0| 20 30 0d 0b 86 05 5d 0d | 0b 90 17 f2 63 6f 6d 70 | 0....].|....comp|
|00001800| 69 6c 65 5f 6d 61 6e 64 | 65 6c 62 72 6f 74 0d 0b |ile_mand|elbrot..|
|00001810| 9a 14 f2 63 6f 6d 70 69 | 6c 65 5f 65 78 74 72 61 |...compi|le_extra|
|00001820| 63 74 0d 0b a4 13 f2 63 | 6f 6d 70 69 6c 65 5f 69 |ct.....c|ompile_i|
|00001830| 6e 73 65 72 74 0d 0b ae | 12 f2 63 6f 6d 70 69 6c |nsert...|..compil|
|00001840| 65 5f 63 6c 65 61 72 0d | 0b b8 13 f2 63 6f 6d 70 |e_clear.|....comp|
|00001850| 69 6c 65 5f 65 76 65 6e | 74 73 0d 0b c2 13 f2 63 |ile_even|ts.....c|
|00001860| 6f 6d 70 69 6c 65 5f 72 | 65 6e 64 65 72 0d 0b cc |ompile_r|ender...|
|00001870| 16 f2 63 6f 6d 70 69 6c | 65 5f 72 65 64 69 73 70 |..compil|e_redisp|
|00001880| 6c 61 79 0d 0b d6 0a ed | 20 70 61 73 73 0d 0b e0 |lay.....| pass...|
|00001890| 05 e1 0d 0b ea 04 0d 0b | f4 19 dd 20 f2 63 6f 6d |........|... .com|
|000018a0| 70 69 6c 65 5f 6d 61 6e | 64 65 6c 62 72 6f 74 0d |pile_man|delbrot.|
|000018b0| 0b fe 46 ea 20 78 63 2c | 79 63 2c 73 74 65 70 2c |..F. xc,|yc,step,|
|000018c0| 68 65 69 67 68 74 2c 70 | 74 72 2c 69 2c 78 2c 79 |height,p|tr,i,x,y|
|000018d0| 2c 73 75 6d 2c 63 6f 75 | 6e 74 2c 74 65 6d 70 31 |,sum,cou|nt,temp1|
|000018e0| 2c 74 65 6d 70 32 2c 6f | 66 66 73 65 74 2c 64 65 |,temp2,o|ffset,de|
|000018f0| 6e 73 69 74 79 0d 0c 08 | 27 78 63 3d 30 3a 79 63 |nsity...|'xc=0:yc|
|00001900| 3d 31 3a 73 74 65 70 3d | 32 3a 68 65 69 67 68 74 |=1:step=|2:height|
|00001910| 3d 33 3a 70 74 72 3d 34 | 3a 69 3d 35 0d 0c 12 40 |=3:ptr=4|:i=5...@|
|00001920| 78 3d 36 3a 79 3d 37 3a | 73 75 6d 3d 38 3a 63 6f |x=6:y=7:|sum=8:co|
|00001930| 75 6e 74 3d 39 3a 74 65 | 6d 70 31 3d 31 30 3a 74 |unt=9:te|mp1=10:t|
|00001940| 65 6d 70 32 3d 31 31 3a | 6f 66 66 73 65 74 3d 31 |emp2=11:|offset=1|
|00001950| 32 3a 64 65 6e 73 69 74 | 79 3d 31 34 0d 0c 1c 0d |2:densit|y=14....|
|00001960| 5b 4f 50 54 20 70 61 73 | 73 0d 0c 26 48 3b 20 4e |[OPT pas|s..&H; N|
|00001970| 45 45 44 53 20 5f 78 63 | 2c 5f 79 63 2c 5f 73 74 |EEDS _xc|,_yc,_st|
|00001980| 65 70 2c 5f 78 73 69 7a | 65 2c 5f 79 73 69 7a 65 |ep,_xsiz|e,_ysize|
|00001990| 2c 5f 68 65 69 67 68 74 | 2c 5f 73 63 72 65 65 6e |,_height|,_screen|
|000019a0| 2c 5f 6f 66 66 73 65 74 | 2c 5f 64 65 6e 73 69 74 |,_offset|,_densit|
|000019b0| 79 0d 0c 30 20 2e 6d 61 | 6e 64 65 6c 62 72 6f 74 |y..0 .ma|ndelbrot|
|000019c0| 3a 53 54 4d 46 44 20 52 | 31 33 21 2c 7b 52 31 34 |:STMFD R|13!,{R14|
|000019d0| 7d 0d 0c 3a 30 4c 44 52 | 20 79 63 2c 5f 79 63 3a |}..:0LDR| yc,_yc:|
|000019e0| 4c 44 52 20 68 65 69 67 | 68 74 2c 5f 68 65 69 67 |LDR heig|ht,_heig|
|000019f0| 68 74 3a 4c 44 52 20 73 | 74 65 70 2c 5f 73 74 65 |ht:LDR s|tep,_ste|
|00001a00| 70 0d 0c 44 26 4c 44 52 | 20 70 74 72 2c 5f 73 63 |p..D&LDR| ptr,_sc|
|00001a10| 72 65 65 6e 3a 4c 44 52 | 20 6f 66 66 73 65 74 2c |reen:LDR| offset,|
|00001a20| 5f 6f 66 66 73 65 74 0d | 0c 4e 2e 4c 44 52 20 74 |_offset.|.N.LDR t|
|00001a30| 65 6d 70 31 2c 5f 64 65 | 6e 73 69 74 79 3a 4d 4f |emp1,_de|nsity:MO|
|00001a40| 56 20 73 74 65 70 2c 73 | 74 65 70 2c 41 53 4c 20 |V step,s|tep,ASL |
|00001a50| 74 65 6d 70 31 0d 0c 58 | 30 4d 4f 56 20 64 65 6e |temp1..X|0MOV den|
|00001a60| 73 69 74 79 2c 23 34 3a | 4d 4f 56 20 64 65 6e 73 |sity,#4:|MOV dens|
|00001a70| 69 74 79 2c 64 65 6e 73 | 69 74 79 2c 41 53 4c 20 |ity,dens|ity,ASL |
|00001a80| 74 65 6d 70 31 0d 0c 62 | 10 4c 44 52 20 69 2c 5f |temp1..b|.LDR i,_|
|00001a90| 79 73 69 7a 65 0d 0c 6c | 31 2e 79 6c 6f 6f 70 3a |ysize..l|1.yloop:|
|00001aa0| 53 54 4d 46 44 20 52 31 | 33 21 2c 7b 69 7d 3a 4c |STMFD R1|3!,{i}:L|
|00001ab0| 44 52 20 78 63 2c 5f 78 | 63 3a 4c 44 52 20 69 2c |DR xc,_x|c:LDR i,|
|00001ac0| 5f 78 73 69 7a 65 0d 0c | 76 0b 2e 78 6c 6f 6f 70 |_xsize..|v..xloop|
|00001ad0| 3a 0d 0c 80 3c 4c 44 52 | 20 74 65 6d 70 31 2c 5b |:...<LDR| temp1,[|
|00001ae0| 70 74 72 2c 6f 66 66 73 | 65 74 5d 3a 4d 4f 56 53 |ptr,offs|et]:MOVS|
|00001af0| 20 74 65 6d 70 31 2c 74 | 65 6d 70 31 2c 4c 53 4c | temp1,t|emp1,LSL|
|00001b00| 20 23 31 37 3a 42 43 53 | 20 73 6b 69 70 0d 0c 8a | #17:BCS| skip...|
|00001b10| 25 43 4d 50 20 68 65 69 | 67 68 74 2c 74 65 6d 70 |%CMP hei|ght,temp|
|00001b20| 31 2c 4c 53 52 20 23 31 | 37 3a 42 4c 53 20 73 6b |1,LSR #1|7:BLS sk|
|00001b30| 69 70 0d 0c 94 23 4d 4f | 56 20 74 65 6d 70 31 2c |ip...#MO|V temp1,|
|00001b40| 23 32 35 35 3a 53 54 52 | 42 20 74 65 6d 70 31 2c |#255:STR|B temp1,|
|00001b50| 5b 70 74 72 5d 0d 0c 9e | 22 4d 4f 56 20 78 2c 23 |[ptr]...|"MOV x,#|
|00001b60| 30 3a 4d 4f 56 20 79 2c | 23 30 3a 4d 4f 56 20 63 |0:MOV y,|#0:MOV c|
|00001b70| 6f 75 6e 74 2c 23 30 0d | 0c a8 29 2e 63 6c 6f 6f |ount,#0.|..).cloo|
|00001b80| 70 3a 41 44 44 20 63 6f | 75 6e 74 2c 63 6f 75 6e |p:ADD co|unt,coun|
|00001b90| 74 2c 23 31 3a 41 44 44 | 20 73 75 6d 2c 78 2c 79 |t,#1:ADD| sum,x,y|
|00001ba0| 0d 0c b2 05 5d 0d 0c bc | 21 f2 6d 61 63 72 6f 5f |....]...|!.macro_|
|00001bb0| 73 71 72 33 32 28 73 75 | 6d 2c 74 65 6d 70 31 2c |sqr32(su|m,temp1,|
|00001bc0| 74 65 6d 70 32 29 0d 0c | c6 1f f2 6d 61 63 72 6f |temp2)..|...macro|
|00001bd0| 5f 73 71 72 33 32 28 78 | 2c 74 65 6d 70 31 2c 74 |_sqr32(x|,temp1,t|
|00001be0| 65 6d 70 32 29 0d 0c d0 | 1f f2 6d 61 63 72 6f 5f |emp2)...|..macro_|
|00001bf0| 73 71 72 33 32 28 79 2c | 74 65 6d 70 31 2c 74 65 |sqr32(y,|temp1,te|
|00001c00| 6d 70 32 29 0d 0c da 0d | 5b 4f 50 54 20 70 61 73 |mp2)....|[OPT pas|
|00001c10| 73 0d 0c e4 3a 41 44 44 | 20 74 65 6d 70 31 2c 78 |s...:ADD| temp1,x|
|00001c20| 2c 79 3a 53 55 42 20 74 | 65 6d 70 32 2c 73 75 6d |,y:SUB t|emp2,sum|
|00001c30| 2c 74 65 6d 70 31 3a 53 | 55 42 20 78 2c 74 65 6d |,temp1:S|UB x,tem|
|00001c40| 70 31 2c 79 2c 41 53 4c | 20 23 31 0d 0c ee 1d 41 |p1,y,ASL| #1....A|
|00001c50| 44 44 20 78 2c 78 63 2c | 78 3a 41 44 44 20 79 2c |DD x,xc,|x:ADD y,|
|00001c60| 79 63 2c 74 65 6d 70 32 | 0d 0c f8 35 43 4d 50 20 |yc,temp2|...5CMP |
|00001c70| 74 65 6d 70 31 2c 23 26 | 31 30 30 30 30 30 30 30 |temp1,#&|10000000|
|00001c80| 3a 43 4d 50 4c 4f 20 63 | 6f 75 6e 74 2c 68 65 69 |:CMPLO c|ount,hei|
|00001c90| 67 68 74 3a 42 4c 4f 20 | 63 6c 6f 6f 70 0d 0d 02 |ght:BLO |cloop...|
|00001ca0| 2a 53 54 52 42 20 63 6f | 75 6e 74 2c 5b 70 74 72 |*STRB co|unt,[ptr|
|00001cb0| 2c 6f 66 66 73 65 74 5d | 3a 41 44 44 20 70 74 72 |,offset]|:ADD ptr|
|00001cc0| 2c 70 74 72 2c 23 31 0d | 0d 0c 41 4d 4f 56 20 74 |,ptr,#1.|..AMOV t|
|00001cd0| 65 6d 70 31 2c 63 6f 75 | 6e 74 2c 41 53 52 20 23 |emp1,cou|nt,ASR #|
|00001ce0| 38 3a 43 4d 50 20 63 6f | 75 6e 74 2c 68 65 69 67 |8:CMP co|unt,heig|
|00001cf0| 68 74 3a 84 52 4e 45 20 | 74 65 6d 70 31 2c 74 65 |ht:.RNE |temp1,te|
|00001d00| 6d 70 31 2c 23 26 38 30 | 0d 0d 16 2a 53 54 52 42 |mp1,#&80|...*STRB|
|00001d10| 20 74 65 6d 70 31 2c 5b | 70 74 72 2c 6f 66 66 73 | temp1,[|ptr,offs|
|00001d20| 65 74 5d 3a 53 55 42 20 | 70 74 72 2c 70 74 72 2c |et]:SUB |ptr,ptr,|
|00001d30| 23 31 0d 0d 20 34 ec 51 | 20 63 6f 75 6e 74 2c 23 |#1.. 4.Q| count,#|
|00001d40| 30 3a 53 54 52 42 20 63 | 6f 75 6e 74 2c 5b 70 74 |0:STRB c|ount,[pt|
|00001d50| 72 5d 3a 53 54 52 42 20 | 63 6f 75 6e 74 2c 5b 70 |r]:STRB |count,[p|
|00001d60| 74 72 2c 23 31 5d 0d 0d | 2a 33 2e 73 6b 69 70 3a |tr,#1]..|*3.skip:|
|00001d70| 41 44 44 20 70 74 72 2c | 70 74 72 2c 64 65 6e 73 |ADD ptr,|ptr,dens|
|00001d80| 69 74 79 2c 41 53 52 20 | 23 31 3a 41 44 44 20 78 |ity,ASR |#1:ADD x|
|00001d90| 63 2c 78 63 2c 73 74 65 | 70 0d 0d 34 40 53 55 42 |c,xc,ste|p..4@SUB|
|00001da0| 53 20 69 2c 69 2c 64 65 | 6e 73 69 74 79 3a 4c 44 |S i,i,de|nsity:LD|
|00001db0| 52 4e 45 20 74 65 6d 70 | 31 2c 5f 6d 6f 75 73 65 |RNE temp|1,_mouse|
|00001dc0| 3a 43 4d 50 4e 45 20 74 | 65 6d 70 31 2c 23 30 3a |:CMPNE t|emp1,#0:|
|00001dd0| 42 4e 45 20 78 6c 6f 6f | 70 0d 0d 3e 3c 4d 4f 56 |BNE xloo|p..><MOV|
|00001de0| 20 74 65 6d 70 31 2c 23 | 31 36 30 3a 4d 55 4c 20 | temp1,#|160:MUL |
|00001df0| 74 65 6d 70 31 2c 64 65 | 6e 73 69 74 79 2c 74 65 |temp1,de|nsity,te|
|00001e00| 6d 70 31 3a 41 44 44 20 | 70 74 72 2c 70 74 72 2c |mp1:ADD |ptr,ptr,|
|00001e10| 74 65 6d 70 31 0d 0d 48 | 2d 4c 44 52 20 74 65 6d |temp1..H|-LDR tem|
|00001e20| 70 31 2c 5f 78 73 69 7a | 65 3a 53 55 42 20 70 74 |p1,_xsiz|e:SUB pt|
|00001e30| 72 2c 70 74 72 2c 74 65 | 6d 70 31 2c 41 53 52 20 |r,ptr,te|mp1,ASR |
|00001e40| 23 31 0d 0d 52 21 41 44 | 44 20 79 63 2c 79 63 2c |#1..R!AD|D yc,yc,|
|00001e50| 73 74 65 70 3a 4c 44 4d | 46 44 20 52 31 33 21 2c |step:LDM|FD R13!,|
|00001e60| 7b 69 7d 0d 0d 5c 40 53 | 55 42 53 20 69 2c 69 2c |{i}..\@S|UBS i,i,|
|00001e70| 64 65 6e 73 69 74 79 3a | 4c 44 52 4e 45 20 74 65 |density:|LDRNE te|
|00001e80| 6d 70 31 2c 5f 6d 6f 75 | 73 65 3a 43 4d 50 4e 45 |mp1,_mou|se:CMPNE|
|00001e90| 20 74 65 6d 70 31 2c 23 | 30 3a 42 4e 45 20 79 6c | temp1,#|0:BNE yl|
|00001ea0| 6f 6f 70 0d 0d 66 20 4c | 44 4d 46 44 20 52 31 33 |oop..f L|DMFD R13|
|00001eb0| 21 2c 7b 52 31 34 7d 3a | 4d 4f 56 53 20 50 43 2c |!,{R14}:|MOVS PC,|
|00001ec0| 52 31 34 0d 0d 70 05 5d | 0d 0d 7a 05 e1 0d 0d 84 |R14..p.]|..z.....|
|00001ed0| 04 0d 0d 8e 1e dd 20 f2 | 6d 61 63 72 6f 5f 73 71 |...... .|macro_sq|
|00001ee0| 72 33 32 28 78 2c 78 68 | 69 2c 74 65 6d 70 29 0d |r32(x,xh|i,temp).|
|00001ef0| 0d 98 0d 5b 4f 50 54 20 | 70 61 73 73 0d 0d a2 20 |...[OPT |pass... |
|00001f00| 4d 4f 56 53 20 78 2c 78 | 2c 41 53 4c 20 23 33 3a |MOVS x,x|,ASL #3:|
|00001f10| 52 53 42 4d 49 20 78 2c | 78 2c 23 30 0d 0d ac 29 |RSBMI x,|x,#0...)|
|00001f20| 4d 4f 56 20 78 68 69 2c | 78 2c 4c 53 52 20 23 31 |MOV xhi,|x,LSR #1|
|00001f30| 36 3a 42 49 43 20 78 2c | 78 2c 78 68 69 2c 4c 53 |6:BIC x,|x,xhi,LS|
|00001f40| 4c 20 23 31 36 0d 0d b6 | 35 4d 55 4c 20 74 65 6d |L #16...|5MUL tem|
|00001f50| 70 2c 78 68 69 2c 78 68 | 69 3a 4d 55 4c 20 78 2c |p,xhi,xh|i:MUL x,|
|00001f60| 78 68 69 2c 78 3a 41 44 | 44 20 78 2c 74 65 6d 70 |xhi,x:AD|D x,temp|
|00001f70| 2c 78 2c 4c 53 52 20 23 | 31 35 0d 0d c0 05 5d 0d |,x,LSR #|15....].|
|00001f80| 0d ca 05 e1 0d 0d d4 04 | 0d 0d de 16 dd 20 f2 63 |........|..... .c|
|00001f90| 6f 6d 70 69 6c 65 5f 65 | 78 74 72 61 63 74 0d 0d |ompile_e|xtract..|
|00001fa0| e8 20 ea 20 73 70 74 72 | 2c 64 70 74 72 2c 64 65 |. . sptr|,dptr,de|
|00001fb0| 6e 73 69 74 79 2c 78 2c | 79 2c 74 65 6d 70 0d 0d |nsity,x,|y,temp..|
|00001fc0| f2 2a 73 70 74 72 3d 30 | 3a 64 70 74 72 3d 31 3a |.*sptr=0|:dptr=1:|
|00001fd0| 64 65 6e 73 69 74 79 3d | 32 3a 78 3d 33 3a 79 3d |density=|2:x=3:y=|
|00001fe0| 34 3a 74 65 6d 70 3d 35 | 0d 0d fc 0d 5b 4f 50 54 |4:temp=5|....[OPT|
|00001ff0| 20 70 61 73 73 0d 0e 06 | 3b 3b 20 4e 45 45 44 53 | pass...|;; NEEDS|
|00002000| 20 5f 78 73 69 7a 65 2c | 5f 79 73 69 7a 65 2c 5f | _xsize,|_ysize,_|
|00002010| 73 63 72 65 65 6e 2c 5f | 64 65 6e 73 69 74 79 2c |screen,_|density,|
|00002020| 5f 78 62 75 66 66 65 72 | 2c 5f 6f 66 66 73 65 74 |_xbuffer|,_offset|
|00002030| 0d 0e 10 41 2e 65 78 74 | 72 61 63 74 3a 4c 44 52 |...A.ext|ract:LDR|
|00002040| 20 73 70 74 72 2c 5f 73 | 63 72 65 65 6e 3a 4c 44 | sptr,_s|creen:LD|
|00002050| 52 20 74 65 6d 70 2c 5f | 6f 66 66 73 65 74 3a 41 |R temp,_|offset:A|
|00002060| 44 44 20 73 70 74 72 2c | 73 70 74 72 2c 74 65 6d |DD sptr,|sptr,tem|
|00002070| 70 0d 0e 1a 15 4c 44 52 | 20 64 70 74 72 2c 5f 78 |p....LDR| dptr,_x|
|00002080| 62 75 66 66 65 72 0d 0e | 24 41 4c 44 52 20 74 65 |buffer..|$ALDR te|
|00002090| 6d 70 2c 5f 64 65 6e 73 | 69 74 79 3a 4d 4f 56 20 |mp,_dens|ity:MOV |
|000020a0| 64 65 6e 73 69 74 79 2c | 23 34 3a 4d 4f 56 20 64 |density,|#4:MOV d|
|000020b0| 65 6e 73 69 74 79 2c 64 | 65 6e 73 69 74 79 2c 41 |ensity,d|ensity,A|
|000020c0| 53 4c 20 74 65 6d 70 0d | 0e 2e 10 4c 44 52 20 79 |SL temp.|...LDR y|
|000020d0| 2c 5f 79 73 69 7a 65 0d | 0e 38 18 2e 65 79 6c 6f |,_ysize.|.8..eylo|
|000020e0| 6f 70 3a 4c 44 52 20 78 | 2c 5f 78 73 69 7a 65 0d |op:LDR x|,_xsize.|
|000020f0| 0e 42 33 2e 65 78 6c 6f | 6f 70 3a 4c 44 52 42 20 |.B3.exlo|op:LDRB |
|00002100| 74 65 6d 70 2c 5b 73 70 | 74 72 2c 23 31 5d 3a 53 |temp,[sp|tr,#1]:S|
|00002110| 54 52 42 20 74 65 6d 70 | 2c 5b 64 70 74 72 2c 23 |TRB temp|,[dptr,#|
|00002120| 31 5d 0d 0e 4c 37 4c 44 | 52 42 20 74 65 6d 70 2c |1]..L7LD|RB temp,|
|00002130| 5b 73 70 74 72 5d 2c 64 | 65 6e 73 69 74 79 2c 41 |[sptr],d|ensity,A|
|00002140| 53 52 20 23 31 3a 53 54 | 52 42 20 74 65 6d 70 2c |SR #1:ST|RB temp,|
|00002150| 5b 64 70 74 72 5d 2c 23 | 32 0d 0e 56 1f 53 55 42 |[dptr],#|2..V.SUB|
|00002160| 53 20 78 2c 78 2c 64 65 | 6e 73 69 74 79 3a 42 4e |S x,x,de|nsity:BN|
|00002170| 45 20 65 78 6c 6f 6f 70 | 0d 0e 60 3a 4d 4f 56 20 |E exloop|..`:MOV |
|00002180| 74 65 6d 70 2c 23 31 36 | 30 3a 4d 55 4c 20 74 65 |temp,#16|0:MUL te|
|00002190| 6d 70 2c 64 65 6e 73 69 | 74 79 2c 74 65 6d 70 3a |mp,densi|ty,temp:|
|000021a0| 41 44 44 20 73 70 74 72 | 2c 73 70 74 72 2c 74 65 |ADD sptr|,sptr,te|
|000021b0| 6d 70 0d 0e 6a 2d 4c 44 | 52 20 74 65 6d 70 2c 5f |mp..j-LD|R temp,_|
|000021c0| 78 73 69 7a 65 3a 53 55 | 42 20 73 70 74 72 2c 73 |xsize:SU|B sptr,s|
|000021d0| 70 74 72 2c 74 65 6d 70 | 2c 41 53 52 20 23 31 0d |ptr,temp|,ASR #1.|
|000021e0| 0e 74 1f 53 55 42 53 20 | 79 2c 79 2c 64 65 6e 73 |.t.SUBS |y,y,dens|
|000021f0| 69 74 79 3a 42 4e 45 20 | 65 79 6c 6f 6f 70 0d 0e |ity:BNE |eyloop..|
|00002200| 7e 0f 4d 4f 56 53 20 50 | 43 2c 52 31 34 0d 0e 88 |~.MOVS P|C,R14...|
|00002210| 05 5d 0d 0e 92 05 e1 0d | 0e 9c 04 0d 0e a6 15 dd |.]......|........|
|00002220| 20 f2 63 6f 6d 70 69 6c | 65 5f 69 6e 73 65 72 74 | .compil|e_insert|
|00002230| 0d 0e b0 20 ea 20 73 70 | 74 72 2c 64 70 74 72 2c |... . sp|tr,dptr,|
|00002240| 64 65 6e 73 69 74 79 2c | 78 2c 79 2c 74 65 6d 70 |density,|x,y,temp|
|00002250| 0d 0e ba 2a 73 70 74 72 | 3d 30 3a 64 70 74 72 3d |...*sptr|=0:dptr=|
|00002260| 31 3a 64 65 6e 73 69 74 | 79 3d 32 3a 78 3d 33 3a |1:densit|y=2:x=3:|
|00002270| 79 3d 34 3a 74 65 6d 70 | 3d 35 0d 0e c4 0d 5b 4f |y=4:temp|=5....[O|
|00002280| 50 54 20 70 61 73 73 0d | 0e ce 3b 3b 20 4e 45 45 |PT pass.|..;; NEE|
|00002290| 44 53 20 5f 78 73 69 7a | 65 2c 5f 79 73 69 7a 65 |DS _xsiz|e,_ysize|
|000022a0| 2c 5f 73 63 72 65 65 6e | 2c 5f 64 65 6e 73 69 74 |,_screen|,_densit|
|000022b0| 79 2c 5f 78 62 75 66 66 | 65 72 2c 5f 6f 66 66 73 |y,_xbuff|er,_offs|
|000022c0| 65 74 0d 0e d8 1d 2e 69 | 6e 73 65 72 74 3a 4c 44 |et.....i|nsert:LD|
|000022d0| 52 20 73 70 74 72 2c 5f | 78 62 75 66 66 65 72 0d |R sptr,_|xbuffer.|
|000022e0| 0e e2 38 4c 44 52 20 64 | 70 74 72 2c 5f 73 63 72 |..8LDR d|ptr,_scr|
|000022f0| 65 65 6e 3a 4c 44 52 20 | 74 65 6d 70 2c 5f 6f 66 |een:LDR |temp,_of|
|00002300| 66 73 65 74 3a 41 44 44 | 20 64 70 74 72 2c 64 70 |fset:ADD| dptr,dp|
|00002310| 74 72 2c 74 65 6d 70 0d | 0e ec 41 4c 44 52 20 74 |tr,temp.|..ALDR t|
|00002320| 65 6d 70 2c 5f 64 65 6e | 73 69 74 79 3a 4d 4f 56 |emp,_den|sity:MOV|
|00002330| 20 64 65 6e 73 69 74 79 | 2c 23 34 3a 4d 4f 56 20 | density|,#4:MOV |
|00002340| 64 65 6e 73 69 74 79 2c | 64 65 6e 73 69 74 79 2c |density,|density,|
|00002350| 41 53 4c 20 74 65 6d 70 | 0d 0e f6 10 4c 44 52 20 |ASL temp|....LDR |
|00002360| 79 2c 5f 79 73 69 7a 65 | 0d 0f 00 18 2e 64 79 6c |y,_ysize|.....dyl|
|00002370| 6f 6f 70 3a 4c 44 52 20 | 78 2c 5f 78 73 69 7a 65 |oop:LDR |x,_xsize|
|00002380| 0d 0f 0a 33 2e 64 78 6c | 6f 6f 70 3a 4c 44 52 42 |...3.dxl|oop:LDRB|
|00002390| 20 74 65 6d 70 2c 5b 73 | 70 74 72 2c 23 31 5d 3a | temp,[s|ptr,#1]:|
|000023a0| 53 54 52 42 20 74 65 6d | 70 2c 5b 64 70 74 72 2c |STRB tem|p,[dptr,|
|000023b0| 23 31 5d 0d 0f 14 37 4c | 44 52 42 20 74 65 6d 70 |#1]...7L|DRB temp|
|000023c0| 2c 5b 73 70 74 72 5d 2c | 23 32 3a 53 54 52 42 20 |,[sptr],|#2:STRB |
|000023d0| 74 65 6d 70 2c 5b 64 70 | 74 72 5d 2c 64 65 6e 73 |temp,[dp|tr],dens|
|000023e0| 69 74 79 2c 41 53 52 20 | 23 31 0d 0f 1e 1f 53 55 |ity,ASR |#1....SU|
|000023f0| 42 53 20 78 2c 78 2c 64 | 65 6e 73 69 74 79 3a 42 |BS x,x,d|ensity:B|
|00002400| 4e 45 20 64 78 6c 6f 6f | 70 0d 0f 28 3a 4d 4f 56 |NE dxloo|p..(:MOV|
|00002410| 20 74 65 6d 70 2c 23 31 | 36 30 3a 4d 55 4c 20 74 | temp,#1|60:MUL t|
|00002420| 65 6d 70 2c 64 65 6e 73 | 69 74 79 2c 74 65 6d 70 |emp,dens|ity,temp|
|00002430| 3a 41 44 44 20 64 70 74 | 72 2c 64 70 74 72 2c 74 |:ADD dpt|r,dptr,t|
|00002440| 65 6d 70 0d 0f 32 2d 4c | 44 52 20 74 65 6d 70 2c |emp..2-L|DR temp,|
|00002450| 5f 78 73 69 7a 65 3a 53 | 55 42 20 64 70 74 72 2c |_xsize:S|UB dptr,|
|00002460| 64 70 74 72 2c 74 65 6d | 70 2c 41 53 52 20 23 31 |dptr,tem|p,ASR #1|
|00002470| 0d 0f 3c 1f 53 55 42 53 | 20 79 2c 79 2c 64 65 6e |..<.SUBS| y,y,den|
|00002480| 73 69 74 79 3a 42 4e 45 | 20 64 79 6c 6f 6f 70 0d |sity:BNE| dyloop.|
|00002490| 0f 46 0f 4d 4f 56 53 20 | 50 43 2c 52 31 34 0d 0f |.F.MOVS |PC,R14..|
|000024a0| 50 05 5d 0d 0f 5a 05 e1 | 0d 0f 64 04 0d 0f 6e 18 |P.]..Z..|..d...n.|
|000024b0| dd 20 f2 63 6f 6d 70 69 | 6c 65 5f 72 65 64 69 73 |. .compi|le_redis|
|000024c0| 70 6c 61 79 0d 0f 78 35 | ea 20 78 73 69 7a 65 2c |play..x5|. xsize,|
|000024d0| 64 70 74 72 2c 64 65 6e | 73 69 74 79 2c 78 2c 79 |dptr,den|sity,x,y|
|000024e0| 2c 74 65 6d 70 2c 6f 66 | 66 73 65 74 2c 68 65 69 |,temp,of|fset,hei|
|000024f0| 67 68 74 2c 79 73 69 7a | 65 0d 0f 82 45 78 73 69 |ght,ysiz|e...Exsi|
|00002500| 7a 65 3d 30 3a 64 70 74 | 72 3d 31 3a 64 65 6e 73 |ze=0:dpt|r=1:dens|
|00002510| 69 74 79 3d 32 3a 78 3d | 33 3a 79 3d 34 3a 74 65 |ity=2:x=|3:y=4:te|
|00002520| 6d 70 3d 35 3a 6f 66 66 | 73 65 74 3d 36 3a 68 65 |mp=5:off|set=6:he|
|00002530| 69 67 68 74 3d 37 3a 79 | 73 69 7a 65 3d 38 0d 0f |ight=7:y|size=8..|
|00002540| 8c 0d 5b 4f 50 54 20 70 | 61 73 73 0d 0f 96 3a 3b |..[OPT p|ass...:;|
|00002550| 20 4e 45 45 44 53 20 5f | 78 73 69 7a 65 2c 5f 79 | NEEDS _|xsize,_y|
|00002560| 73 69 7a 65 2c 5f 73 63 | 72 65 65 6e 2c 5f 64 65 |size,_sc|reen,_de|
|00002570| 6e 73 69 74 79 2c 5f 6f | 66 66 73 65 74 2c 5f 68 |nsity,_o|ffset,_h|
|00002580| 65 69 67 68 74 0d 0f a0 | 45 2e 72 65 64 69 73 70 |eight...|E.redisp|
|00002590| 6c 61 79 3a 4c 44 52 20 | 64 70 74 72 2c 5f 73 63 |lay:LDR |dptr,_sc|
|000025a0| 72 65 65 6e 3a 4c 44 52 | 20 6f 66 66 73 65 74 2c |reen:LDR| offset,|
|000025b0| 5f 6f 66 66 73 65 74 3a | 4c 44 52 20 68 65 69 67 |_offset:|LDR heig|
|000025c0| 68 74 2c 5f 68 65 69 67 | 68 74 0d 0f aa 25 4c 44 |ht,_heig|ht...%LD|
|000025d0| 52 20 78 73 69 7a 65 2c | 5f 78 73 69 7a 65 3a 4c |R xsize,|_xsize:L|
|000025e0| 44 52 20 79 73 69 7a 65 | 2c 5f 79 73 69 7a 65 0d |DR ysize|,_ysize.|
|000025f0| 0f b4 41 4c 44 52 20 74 | 65 6d 70 2c 5f 64 65 6e |..ALDR t|emp,_den|
|00002600| 73 69 74 79 3a 4d 4f 56 | 20 64 65 6e 73 69 74 79 |sity:MOV| density|
|00002610| 2c 23 34 3a 4d 4f 56 20 | 64 65 6e 73 69 74 79 2c |,#4:MOV |density,|
|00002620| 64 65 6e 73 69 74 79 2c | 41 53 4c 20 74 65 6d 70 |density,|ASL temp|
|00002630| 0d 0f be 1a 53 55 42 20 | 64 65 6e 73 69 74 79 2c |....SUB |density,|
|00002640| 64 65 6e 73 69 74 79 2c | 23 31 0d 0f c8 0c 4d 4f |density,|#1....MO|
|00002650| 56 20 79 2c 23 30 0d 0f | d2 14 2e 74 79 6c 6f 6f |V y,#0..|...tyloo|
|00002660| 70 3a 4d 4f 56 20 78 2c | 23 30 0d 0f dc 4e 2e 74 |p:MOV x,|#0...N.t|
|00002670| 78 6c 6f 6f 70 3a 4d 4f | 56 20 74 65 6d 70 2c 23 |xloop:MO|V temp,#|
|00002680| 30 3a 54 53 54 20 78 2c | 64 65 6e 73 69 74 79 3a |0:TST x,|density:|
|00002690| 54 53 54 45 51 20 79 2c | 64 65 6e 73 69 74 79 3a |TSTEQ y,|density:|
|000026a0| 4c 44 52 45 51 20 74 65 | 6d 70 2c 5b 64 70 74 72 |LDREQ te|mp,[dptr|
|000026b0| 2c 6f 66 66 73 65 74 5d | 0d 0f e6 28 4d 4f 56 53 |,offset]|...(MOVS|
|000026c0| 20 74 65 6d 70 2c 74 65 | 6d 70 2c 4c 53 4c 20 23 | temp,te|mp,LSL #|
|000026d0| 31 37 3a 4d 4f 56 43 43 | 20 74 65 6d 70 2c 23 30 |17:MOVCC| temp,#0|
|000026e0| 0d 0f f0 37 4d 4f 56 20 | 74 65 6d 70 2c 74 65 6d |...7MOV |temp,tem|
|000026f0| 70 2c 4c 53 52 20 23 31 | 37 3a 43 4d 50 20 68 65 |p,LSR #1|7:CMP he|
|00002700| 69 67 68 74 2c 74 65 6d | 70 3a 4d 4f 56 4c 4f 20 |ight,tem|p:MOVLO |
|00002710| 74 65 6d 70 2c 23 30 0d | 0f fa 2b 53 54 52 42 20 |temp,#0.|..+STRB |
|00002720| 74 65 6d 70 2c 5b 64 70 | 74 72 5d 2c 23 31 3a 53 |temp,[dp|tr],#1:S|
|00002730| 54 52 42 20 74 65 6d 70 | 2c 5b 64 70 74 72 5d 2c |TRB temp|,[dptr],|
|00002740| 23 31 0d 10 04 25 41 44 | 44 20 78 2c 78 2c 23 34 |#1...%AD|D x,x,#4|
|00002750| 3a 43 4d 50 20 78 2c 78 | 73 69 7a 65 3a 42 4e 45 |:CMP x,x|size:BNE|
|00002760| 20 74 78 6c 6f 6f 70 0d | 10 0e 31 41 44 44 20 64 | txloop.|..1ADD d|
|00002770| 70 74 72 2c 64 70 74 72 | 2c 23 36 34 30 3a 53 55 |ptr,dptr|,#640:SU|
|00002780| 42 20 64 70 74 72 2c 64 | 70 74 72 2c 78 73 69 7a |B dptr,d|ptr,xsiz|
|00002790| 65 2c 41 53 52 20 23 31 | 0d 10 18 25 41 44 44 20 |e,ASR #1|...%ADD |
|000027a0| 79 2c 79 2c 23 34 3a 43 | 4d 50 20 79 2c 79 73 69 |y,y,#4:C|MP y,ysi|
|000027b0| 7a 65 3a 42 4e 45 20 74 | 79 6c 6f 6f 70 0d 10 22 |ze:BNE t|yloop.."|
|000027c0| 0f 4d 4f 56 53 20 50 43 | 2c 52 31 34 0d 10 2c 05 |.MOVS PC|,R14..,.|
|000027d0| 5d 0d 10 36 05 e1 0d 10 | 40 04 0d 10 4a 14 dd 20 |]..6....|@...J.. |
|000027e0| f2 63 6f 6d 70 69 6c 65 | 5f 63 6c 65 61 72 0d 10 |.compile|_clear..|
|000027f0| 54 20 ea 20 78 73 69 7a | 65 2c 64 70 74 72 2c 6f |T . xsiz|e,dptr,o|
|00002800| 66 66 73 65 74 2c 78 2c | 79 2c 74 65 6d 70 0d 10 |ffset,x,|y,temp..|
|00002810| 5e 2a 78 73 69 7a 65 3d | 30 3a 64 70 74 72 3d 31 |^*xsize=|0:dptr=1|
|00002820| 3a 6f 66 66 73 65 74 3d | 32 3a 78 3d 33 3a 79 3d |:offset=|2:x=3:y=|
|00002830| 34 3a 74 65 6d 70 3d 35 | 0d 10 68 0d 5b 4f 50 54 |4:temp=5|..h.[OPT|
|00002840| 20 70 61 73 73 0d 10 72 | 29 3b 20 4e 45 45 44 53 | pass..r|); NEEDS|
|00002850| 20 5f 78 73 69 7a 65 2c | 5f 79 73 69 7a 65 2c 5f | _xsize,|_ysize,_|
|00002860| 73 63 72 65 65 6e 2c 5f | 6f 66 66 73 65 74 0d 10 |screen,_|offset..|
|00002870| 7c 2e 2e 63 6c 65 61 72 | 3a 4c 44 52 20 64 70 74 ||..clear|:LDR dpt|
|00002880| 72 2c 5f 73 63 72 65 65 | 6e 3a 4c 44 52 20 6f 66 |r,_scree|n:LDR of|
|00002890| 66 73 65 74 2c 5f 6f 66 | 66 73 65 74 0d 10 86 2d |fset,_of|fset...-|
|000028a0| 4c 44 52 20 78 73 69 7a | 65 2c 5f 78 73 69 7a 65 |LDR xsiz|e,_xsize|
|000028b0| 3a 4d 4f 56 20 74 65 6d | 70 2c 23 30 3a 4c 44 52 |:MOV tem|p,#0:LDR|
|000028c0| 20 79 2c 5f 79 73 69 7a | 65 0d 10 90 17 2e 63 79 | y,_ysiz|e.....cy|
|000028d0| 6c 6f 6f 70 3a 4d 4f 56 | 20 78 2c 78 73 69 7a 65 |loop:MOV| x,xsize|
|000028e0| 0d 10 9a 37 2e 63 78 6c | 6f 6f 70 3a 53 54 52 42 |...7.cxl|oop:STRB|
|000028f0| 20 74 65 6d 70 2c 5b 64 | 70 74 72 2c 6f 66 66 73 | temp,[d|ptr,offs|
|00002900| 65 74 5d 3a 53 54 52 42 | 20 74 65 6d 70 2c 5b 64 |et]:STRB| temp,[d|
|00002910| 70 74 72 5d 2c 23 31 0d | 10 a4 46 53 54 52 42 20 |ptr],#1.|..FSTRB |
|00002920| 74 65 6d 70 2c 5b 64 70 | 74 72 2c 6f 66 66 73 65 |temp,[dp|tr,offse|
|00002930| 74 5d 3a 53 54 52 42 20 | 74 65 6d 70 2c 5b 64 70 |t]:STRB |temp,[dp|
|00002940| 74 72 5d 2c 23 31 3a 53 | 55 42 53 20 78 2c 78 2c |tr],#1:S|UBS x,x,|
|00002950| 23 34 3a 42 4e 45 20 63 | 78 6c 6f 6f 70 0d 10 ae |#4:BNE c|xloop...|
|00002960| 48 41 44 44 20 64 70 74 | 72 2c 64 70 74 72 2c 23 |HADD dpt|r,dptr,#|
|00002970| 36 34 30 3a 53 55 42 20 | 64 70 74 72 2c 64 70 74 |640:SUB |dptr,dpt|
|00002980| 72 2c 78 73 69 7a 65 2c | 41 53 52 20 23 31 3a 53 |r,xsize,|ASR #1:S|
|00002990| 55 42 53 20 79 2c 79 2c | 23 34 3a 42 4e 45 20 63 |UBS y,y,|#4:BNE c|
|000029a0| 79 6c 6f 6f 70 0d 10 b8 | 0f 4d 4f 56 53 20 50 43 |yloop...|.MOVS PC|
|000029b0| 2c 52 31 34 0d 10 c2 05 | 5d 0d 10 cc 05 e1 0d 10 |,R14....|].......|
|000029c0| d6 04 0d 10 e0 15 dd 20 | f2 63 6f 6d 70 69 6c 65 |....... |.compile|
|000029d0| 5f 72 65 6e 64 65 72 0d | 10 ea 3e ea 20 78 73 69 |_render.|..>. xsi|
|000029e0| 7a 65 2c 64 70 74 72 2c | 72 65 6e 64 2c 78 2c 79 |ze,dptr,|rend,x,y|
|000029f0| 2c 74 65 6d 70 2c 79 73 | 69 7a 65 2c 68 2c 73 70 |,temp,ys|ize,h,sp|
|00002a00| 74 72 2c 69 2c 6f 66 66 | 73 65 74 2c 67 2c 67 70 |tr,i,off|set,g,gp|
|00002a10| 74 72 2c 78 78 0d 10 f4 | 49 78 73 69 7a 65 3d 30 |tr,xx...|Ixsize=0|
|00002a20| 3a 64 70 74 72 3d 31 3a | 72 65 6e 64 3d 32 3a 78 |:dptr=1:|rend=2:x|
|00002a30| 3d 33 3a 79 3d 34 3a 74 | 65 6d 70 3d 35 3a 79 73 |=3:y=4:t|emp=5:ys|
|00002a40| 69 7a 65 3d 36 3a 68 3d | 37 3a 73 70 74 72 3d 38 |ize=6:h=|7:sptr=8|
|00002a50| 3a 69 3d 39 3a 6f 66 66 | 73 65 74 3d 31 30 0d 10 |:i=9:off|set=10..|
|00002a60| fe 16 67 3d 31 31 3a 67 | 70 74 72 3d 31 32 3a 78 |..g=11:g|ptr=12:x|
|00002a70| 78 3d 31 34 0d 11 08 0d | 5b 4f 50 54 20 70 61 73 |x=14....|[OPT pas|
|00002a80| 73 0d 11 12 2f 3b 20 4e | 45 45 44 53 20 5f 78 73 |s.../; N|EEDS _xs|
|00002a90| 69 7a 65 2c 5f 79 73 69 | 7a 65 2c 5f 73 63 72 65 |ize,_ysi|ze,_scre|
|00002aa0| 65 6e 2c 5f 72 65 6e 64 | 2c 5f 6f 66 66 73 65 74 |en,_rend|,_offset|
|00002ab0| 0d 11 1c 3e 2e 72 65 6e | 64 65 72 3a 53 54 4d 46 |...>.ren|der:STMF|
|00002ac0| 44 20 52 31 33 21 2c 7b | 52 31 34 7d 3a 4c 44 52 |D R13!,{|R14}:LDR|
|00002ad0| 20 78 73 69 7a 65 2c 5f | 78 73 69 7a 65 3a 4c 44 | xsize,_|xsize:LD|
|00002ae0| 52 20 79 73 69 7a 65 2c | 5f 79 73 69 7a 65 0d 11 |R ysize,|_ysize..|
|00002af0| 26 36 4c 44 52 20 72 65 | 6e 64 2c 5f 72 65 6e 64 |&6LDR re|nd,_rend|
|00002b00| 3a 52 53 42 20 72 65 6e | 64 2c 72 65 6e 64 2c 23 |:RSB ren|d,rend,#|
|00002b10| 6d 61 78 72 65 6e 64 2b | 6c 6f 67 6d 61 78 68 65 |maxrend+|logmaxhe|
|00002b20| 69 67 68 74 0d 11 30 3c | 4c 44 52 20 73 70 74 72 |ight..0<|LDR sptr|
|00002b30| 2c 5f 73 63 72 65 65 6e | 3a 4c 44 52 20 6f 66 66 |,_screen|:LDR off|
|00002b40| 73 65 74 2c 5f 6f 66 66 | 73 65 74 3a 41 44 44 20 |set,_off|set:ADD |
|00002b50| 73 70 74 72 2c 73 70 74 | 72 2c 6f 66 66 73 65 74 |sptr,spt|r,offset|
|00002b60| 0d 11 3a 0c 4d 4f 56 20 | 79 2c 23 30 0d 11 44 22 |..:.MOV |y,#0..D"|
|00002b70| 2e 72 79 6c 6f 6f 70 3a | 41 44 44 20 79 2c 79 2c |.ryloop:|ADD y,y,|
|00002b80| 23 34 3a 4d 4f 56 20 78 | 2c 78 73 69 7a 65 0d 11 |#4:MOV x|,xsize..|
|00002b90| 4e 20 2e 72 78 6c 6f 6f | 70 3a 53 55 42 20 64 70 |N .rxloo|p:SUB dp|
|00002ba0| 74 72 2c 73 70 74 72 2c | 6f 66 66 73 65 74 0d 11 |tr,sptr,|offset..|
|00002bb0| 58 3f 4c 44 52 20 68 2c | 5b 73 70 74 72 5d 2c 23 |X?LDR h,|[sptr],#|
|00002bc0| 32 3a 4d 4f 56 53 20 68 | 2c 68 2c 4c 53 4c 20 23 |2:MOVS h|,h,LSL #|
|00002bd0| 31 37 3a 4d 4f 56 20 68 | 2c 68 2c 4c 53 52 20 23 |17:MOV h|,h,LSR #|
|00002be0| 31 37 3a 4d 4f 56 43 43 | 20 68 2c 23 30 0d 11 62 |17:MOVCC| h,#0..b|
|00002bf0| 43 4d 4f 56 20 68 2c 68 | 2c 41 53 4c 20 72 65 6e |CMOV h,h|,ASL ren|
|00002c00| 64 3a 4d 4f 56 20 68 2c | 68 2c 41 53 52 20 23 6d |d:MOV h,|h,ASR #m|
|00002c10| 61 78 72 65 6e 64 2b 6c | 6f 67 6d 61 78 68 65 69 |axrend+l|ogmaxhei|
|00002c20| 67 68 74 2d 36 3a 41 44 | 44 20 68 2c 68 2c 23 31 |ght-6:AD|D h,h,#1|
|00002c30| 0d 11 6c 19 43 4d 50 20 | 68 2c 23 36 34 3a 4d 4f |..l.CMP |h,#64:MO|
|00002c40| 56 48 49 20 68 2c 23 36 | 34 0d 11 76 23 43 4d 50 |VHI h,#6|4..v#CMP|
|00002c50| 20 68 2c 79 2c 41 53 52 | 20 23 32 3a 4d 4f 56 48 | h,y,ASR| #2:MOVH|
|00002c60| 49 20 68 2c 79 2c 41 53 | 52 20 23 32 0d 11 80 0c |I h,y,AS|R #2....|
|00002c70| 4d 4f 56 20 69 2c 23 33 | 0d 11 8a 3e 2e 72 69 6c |MOV i,#3|...>.ril|
|00002c80| 6f 6f 70 3a 4d 4f 56 20 | 67 70 74 72 2c 64 70 74 |oop:MOV |gptr,dpt|
|00002c90| 72 3a 53 54 52 42 20 69 | 2c 5b 64 70 74 72 2c 23 |r:STRB i|,[dptr,#|
|00002ca0| 31 5d 3a 53 54 52 42 20 | 69 2c 5b 64 70 74 72 5d |1]:STRB |i,[dptr]|
|00002cb0| 2c 23 2d 36 34 30 0d 11 | 94 2b 4d 4f 56 20 67 2c |,#-640..|.+MOV g,|
|00002cc0| 69 2c 41 53 52 20 23 32 | 3a 53 55 42 20 78 78 2c |i,ASR #2|:SUB xx,|
|00002cd0| 78 2c 23 34 3a 42 20 72 | 78 78 6c 6f 6f 70 65 6e |x,#4:B r|xxloopen|
|00002ce0| 64 0d 11 9e 36 2e 72 78 | 78 6c 6f 6f 70 3a 4c 44 |d...6.rx|xloop:LD|
|00002cf0| 52 42 20 74 65 6d 70 2c | 5b 67 70 74 72 2c 23 32 |RB temp,|[gptr,#2|
|00002d00| 5d 21 3a 4d 4f 56 20 74 | 65 6d 70 2c 74 65 6d 70 |]!:MOV t|emp,temp|
|00002d10| 2c 41 53 52 20 23 32 0d | 11 a8 1d 43 4d 50 20 74 |,ASR #2.|...CMP t|
|00002d20| 65 6d 70 2c 67 3a 42 4e | 45 20 72 78 78 6c 6f 6f |emp,g:BN|E rxxloo|
|00002d30| 70 65 6e 64 0d 11 b2 36 | 4c 44 52 42 20 74 65 6d |pend...6|LDRB tem|
|00002d40| 70 2c 5b 67 70 74 72 5d | 3a 42 49 43 20 74 65 6d |p,[gptr]|:BIC tem|
|00002d50| 70 2c 74 65 6d 70 2c 23 | 33 3a 53 54 52 42 20 74 |p,temp,#|3:STRB t|
|00002d60| 65 6d 70 2c 5b 67 70 74 | 72 5d 0d 11 bc 3c 4c 44 |emp,[gpt|r]...<LD|
|00002d70| 52 42 20 74 65 6d 70 2c | 5b 67 70 74 72 2c 23 31 |RB temp,|[gptr,#1|
|00002d80| 5d 3a 42 49 43 20 74 65 | 6d 70 2c 74 65 6d 70 2c |]:BIC te|mp,temp,|
|00002d90| 23 33 3a 53 54 52 42 20 | 74 65 6d 70 2c 5b 67 70 |#3:STRB |temp,[gp|
|00002da0| 74 72 2c 23 31 5d 0d 11 | c6 0f 42 20 72 69 6c 6f |tr,#1]..|..B rilo|
|00002db0| 6f 70 65 6e 64 0d 11 d0 | 37 2e 72 78 78 6c 6f 6f |opend...|7.rxxloo|
|00002dc0| 70 65 6e 64 3a 53 55 42 | 53 20 67 2c 67 2c 23 31 |pend:SUB|S g,g,#1|
|00002dd0| 3a 53 55 42 47 45 53 20 | 78 78 2c 78 78 2c 23 34 |:SUBGES |xx,xx,#4|
|00002de0| 3a 42 47 45 20 72 78 78 | 6c 6f 6f 70 0d 11 da 33 |:BGE rxx|loop...3|
|00002df0| 2e 72 69 6c 6f 6f 70 65 | 6e 64 3a 41 44 44 20 69 |.riloope|nd:ADD i|
|00002e00| 2c 69 2c 23 34 3a 43 4d | 50 20 69 2c 68 2c 41 53 |,i,#4:CM|P i,h,AS|
|00002e10| 4c 20 23 32 3a 42 4c 4f | 20 72 69 6c 6f 6f 70 0d |L #2:BLO| riloop.|
|00002e20| 11 e4 34 53 55 42 53 20 | 78 2c 78 2c 23 34 3a 4c |..4SUBS |x,x,#4:L|
|00002e30| 44 52 4e 45 20 67 2c 5f | 6d 6f 75 73 65 3a 43 4d |DRNE g,_|mouse:CM|
|00002e40| 50 4e 45 20 67 2c 23 30 | 3a 42 4e 45 20 72 78 6c |PNE g,#0|:BNE rxl|
|00002e50| 6f 6f 70 0d 11 ee 31 41 | 44 44 20 73 70 74 72 2c |oop...1A|DD sptr,|
|00002e60| 73 70 74 72 2c 23 36 34 | 30 3a 53 55 42 20 73 70 |sptr,#64|0:SUB sp|
|00002e70| 74 72 2c 73 70 74 72 2c | 78 73 69 7a 65 2c 41 53 |tr,sptr,|xsize,AS|
|00002e80| 52 20 23 31 0d 11 f8 34 | 43 4d 50 20 79 2c 79 73 |R #1...4|CMP y,ys|
|00002e90| 69 7a 65 3a 4c 44 52 4e | 45 20 67 2c 5f 6d 6f 75 |ize:LDRN|E g,_mou|
|00002ea0| 73 65 3a 43 4d 50 4e 45 | 20 67 2c 23 30 3a 42 4e |se:CMPNE| g,#0:BN|
|00002eb0| 45 20 72 79 6c 6f 6f 70 | 0d 12 02 20 4c 44 4d 46 |E ryloop|... LDMF|
|00002ec0| 44 20 52 31 33 21 2c 7b | 52 31 34 7d 3a 4d 4f 56 |D R13!,{|R14}:MOV|
|00002ed0| 53 20 50 43 2c 52 31 34 | 0d 12 0c 05 5d 0d 12 16 |S PC,R14|....]...|
|00002ee0| 05 e1 0d 12 20 04 0d 12 | 2a 3f dd 20 f2 63 6f 6d |.... ...|*?. .com|
|00002ef0| 70 69 6c 65 5f 65 76 65 | 6e 74 73 3a ea 20 45 76 |pile_eve|nts:. Ev|
|00002f00| 65 6e 74 56 2c 65 6e 61 | 62 6c 65 5f 65 76 65 6e |entV,ena|ble_even|
|00002f10| 74 2c 64 69 73 61 62 6c | 65 5f 65 76 65 6e 74 2c |t,disabl|e_event,|
|00002f20| 6d 6f 75 73 65 0d 12 34 | 3a 45 76 65 6e 74 56 3d |mouse..4|:EventV=|
|00002f30| 26 31 30 3a 65 6e 61 62 | 6c 65 5f 65 76 65 6e 74 |&10:enab|le_event|
|00002f40| 3d 26 30 45 3a 64 69 73 | 61 62 6c 65 5f 65 76 65 |=&0E:dis|able_eve|
|00002f50| 6e 74 3d 26 30 44 3a 6d | 6f 75 73 65 3d 31 30 0d |nt=&0D:m|ouse=10.|
|00002f60| 12 3e 0d 5b 4f 50 54 20 | 70 61 73 73 0d 12 48 46 |.>.[OPT |pass..HF|
|00002f70| 2e 65 76 65 6e 74 5f 65 | 6e 61 62 6c 65 3a 4d 4f |.event_e|nable:MO|
|00002f80| 56 20 52 30 2c 23 45 76 | 65 6e 74 56 3a 41 44 52 |V R0,#Ev|entV:ADR|
|00002f90| 20 52 31 2c 65 76 65 6e | 74 3a 4d 4f 56 20 52 32 | R1,even|t:MOV R2|
|00002fa0| 2c 23 30 3a 53 57 49 20 | 22 4f 53 5f 43 6c 61 69 |,#0:SWI |"OS_Clai|
|00002fb0| 6d 22 0d 12 52 34 4d 4f | 56 20 52 30 2c 23 65 6e |m"..R4MO|V R0,#en|
|00002fc0| 61 62 6c 65 5f 65 76 65 | 6e 74 3a 4d 4f 56 20 52 |able_eve|nt:MOV R|
|00002fd0| 31 2c 23 6d 6f 75 73 65 | 3a 53 57 49 20 22 4f 53 |1,#mouse|:SWI "OS|
|00002fe0| 5f 42 79 74 65 22 0d 12 | 5c 27 4d 4f 56 20 52 30 |_Byte"..|\'MOV R0|
|00002ff0| 2c 23 31 3a 53 54 52 20 | 52 30 2c 5f 6d 6f 75 73 |,#1:STR |R0,_mous|
|00003000| 65 3a 4d 4f 56 53 20 50 | 43 2c 52 31 34 0d 12 66 |e:MOVS P|C,R14..f|
|00003010| 44 2e 65 76 65 6e 74 5f | 64 69 73 61 62 6c 65 3a |D.event_|disable:|
|00003020| 4d 4f 56 20 52 30 2c 23 | 64 69 73 61 62 6c 65 5f |MOV R0,#|disable_|
|00003030| 65 76 65 6e 74 3a 4d 4f | 56 20 52 31 2c 23 6d 6f |event:MO|V R1,#mo|
|00003040| 75 73 65 3a 53 57 49 20 | 22 4f 53 5f 42 79 74 65 |use:SWI |"OS_Byte|
|00003050| 22 0d 12 70 46 4d 4f 56 | 20 52 30 2c 23 45 76 65 |"..pFMOV| R0,#Eve|
|00003060| 6e 74 56 3a 41 44 52 20 | 52 31 2c 65 76 65 6e 74 |ntV:ADR |R1,event|
|00003070| 3a 4d 4f 56 20 52 32 2c | 23 30 3a 53 57 49 20 22 |:MOV R2,|#0:SWI "|
|00003080| 4f 53 5f 52 65 6c 65 61 | 73 65 22 3a 4d 4f 56 53 |OS_Relea|se":MOVS|
|00003090| 20 50 43 2c 52 31 34 0d | 12 7a 3e 2e 65 76 65 6e | PC,R14.|.z>.even|
|000030a0| 74 3a 43 4d 50 20 52 30 | 2c 23 6d 6f 75 73 65 3a |t:CMP R0|,#mouse:|
|000030b0| ec 51 20 52 30 2c 23 30 | 3a 53 54 52 45 51 20 52 |.Q R0,#0|:STREQ R|
|000030c0| 30 2c 5f 6d 6f 75 73 65 | 3a ec 51 20 52 30 2c 23 |0,_mouse|:.Q R0,#|
|000030d0| 6d 6f 75 73 65 0d 12 84 | 0f 4d 4f 56 53 20 50 43 |mouse...|.MOVS PC|
|000030e0| 2c 52 31 34 0d 12 8e 05 | 5d 0d 12 98 05 e1 0d 12 |,R14....|].......|
|000030f0| a2 04 0d 12 ac 4b f4 20 | 2a 2a 2a 2a 2a 2a 2a 2a |.....K. |********|
|00003100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 12 b6 |********|*****...|
|00003140| 04 0d 12 c0 1a f4 20 46 | 55 4c 4c 20 33 32 2d 42 |...... F|ULL 32-B|
|00003150| 49 54 20 4d 55 4c 54 49 | 50 4c 59 0d 12 ca 20 4d |IT MULTI|PLY... M|
|00003160| 4f 56 53 20 78 2c 78 2c | 41 53 4c 20 23 33 3a 52 |OVS x,x,|ASL #3:R|
|00003170| 53 42 4d 49 20 78 2c 78 | 2c 23 30 0d 12 d4 2b 4d |SBMI x,x|,#0...+M|
|00003180| 4f 56 20 78 68 69 2c 78 | 2c 4c 53 52 20 23 31 36 |OV xhi,x|,LSR #16|
|00003190| 3a 42 49 43 20 78 6c 6f | 2c 78 2c 78 68 69 2c 4c |:BIC xlo|,x,xhi,L|
|000031a0| 53 4c 20 23 31 36 0d 12 | de 27 4d 55 4c 20 61 63 |SL #16..|.'MUL ac|
|000031b0| 63 6c 6f 2c 78 6c 6f 2c | 78 6c 6f 3a 4d 55 4c 20 |clo,xlo,|xlo:MUL |
|000031c0| 61 63 63 68 69 2c 78 68 | 69 2c 78 68 69 0d 12 e8 |acchi,xh|i,xhi...|
|000031d0| 42 4d 55 4c 20 78 2c 78 | 68 69 2c 78 6c 6f 3a 41 |BMUL x,x|hi,xlo:A|
|000031e0| 44 44 53 20 61 63 63 6c | 6f 2c 61 63 63 6c 6f 2c |DDS accl|o,acclo,|
|000031f0| 78 2c 4c 53 4c 20 23 31 | 37 3a 41 44 43 20 78 2c |x,LSL #1|7:ADC x,|
|00003200| 61 63 63 68 69 2c 78 2c | 4c 53 52 20 23 31 35 0d |acchi,x,|LSR #15.|
|00003210| 12 f2 04 0d 12 fc 4b f4 | 20 2a 2a 2a 2a 2a 2a 2a |......K.| *******|
|00003220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 13 |********|******..|
|00003260| 06 04 0d 13 10 1b dd 20 | f2 62 75 74 74 6f 6e 5f |....... |.button_|
|00003270| 6f 70 65 6e 28 58 30 2c | 58 31 2c 59 29 0d 13 1a |open(X0,|X1,Y)...|
|00003280| 39 de 20 62 75 74 74 6f | 6e 28 31 30 30 30 2c 36 |9. butto|n(1000,6|
|00003290| 29 2c 62 75 74 74 6f 6e | 5f 74 65 78 74 24 28 31 |),button|_text$(1|
|000032a0| 30 30 30 29 2c 62 75 74 | 74 6f 6e 5f 65 76 61 6c |000),but|ton_eval|
|000032b0| 24 28 31 30 30 29 0d 13 | 24 21 62 75 74 74 6f 6e |$(100)..|$!button|
|000032c0| 5f 6e 75 6d 62 65 72 3d | 30 3a 62 75 74 74 6f 6e |_number=|0:button|
|000032d0| 5f 6d 61 72 6b 3d 30 0d | 13 2e 17 f2 62 75 74 74 |_mark=0.|....butt|
|000032e0| 6f 6e 5f 61 74 28 58 30 | 2c 58 31 2c 59 29 0d 13 |on_at(X0|,X1,Y)..|
|000032f0| 38 05 e1 0d 13 42 04 0d | 13 4c 19 dd 20 f2 62 75 |8....B..|.L.. .bu|
|00003300| 74 74 6f 6e 5f 61 74 28 | 58 30 2c 58 31 2c 59 29 |tton_at(|X0,X1,Y)|
|00003310| 0d 13 56 39 62 75 74 74 | 6f 6e 5f 6c 65 66 74 3d |..V9butt|on_left=|
|00003320| 58 30 3a 62 75 74 74 6f | 6e 5f 78 3d 58 30 3a 62 |X0:butto|n_x=X0:b|
|00003330| 75 74 74 6f 6e 5f 72 69 | 67 68 74 3d 58 31 3a 62 |utton_ri|ght=X1:b|
|00003340| 75 74 74 6f 6e 5f 79 3d | 59 0d 13 60 05 e1 0d 13 |utton_y=|Y..`....|
|00003350| 6a 04 0d 13 74 35 dd 20 | f2 62 75 74 74 6f 6e 5f |j...t5. |.button_|
|00003360| 65 76 61 6c 28 53 24 2c | 56 24 29 3a ea 20 5a 3a |eval(S$,|V$):. Z:|
|00003370| 5a 3d a4 62 75 74 74 6f | 6e 5f 65 76 61 6c 28 53 |Z=.butto|n_eval(S|
|00003380| 24 2c 56 24 29 3a e1 0d | 13 7e 2d dd 20 f2 62 75 |$,V$):..|.~-. .bu|
|00003390| 74 74 6f 6e 5f 6d 73 67 | 28 53 24 29 3a ea 20 5a |tton_msg|(S$):. Z|
|000033a0| 3a 5a 3d a4 62 75 74 74 | 6f 6e 5f 6d 73 67 28 53 |:Z=.butt|on_msg(S|
|000033b0| 24 29 3a e1 0d 13 88 35 | dd 20 f2 62 75 74 74 6f |$):....5|. .butto|
|000033c0| 6e 5f 77 72 69 74 65 28 | 4e 2c 53 24 29 3a ea 20 |n_write(|N,S$):. |
|000033d0| 5a 3a 5a 3d a4 62 75 74 | 74 6f 6e 5f 77 72 69 74 |Z:Z=.but|ton_writ|
|000033e0| 65 28 4e 2c 53 24 29 3a | e1 0d 13 92 04 0d 13 9c |e(N,S$):|........|
|000033f0| 1c dd 20 f2 62 75 74 74 | 6f 6e 5f 6e 65 77 6c 69 |.. .butt|on_newli|
|00003400| 6e 65 3a ea 20 49 2c 58 | 4f 0d 13 a6 20 58 4f 3d |ne:. I,X|O... XO=|
|00003410| 28 62 75 74 74 6f 6e 5f | 72 69 67 68 74 2d 62 75 |(button_|right-bu|
|00003420| 74 74 6f 6e 5f 78 29 2f | 32 0d 13 b0 25 e3 20 49 |tton_x)/|2...%. I|
|00003430| 3d 62 75 74 74 6f 6e 5f | 6d 61 72 6b 20 b8 20 62 |=button_|mark . b|
|00003440| 75 74 74 6f 6e 5f 6e 75 | 6d 62 65 72 2d 31 0d 13 |utton_nu|mber-1..|
|00003450| ba 13 e7 20 62 75 74 74 | 6f 6e 28 49 2c 34 29 20 |... butt|on(I,4) |
|00003460| 8c 0d 13 c4 23 62 75 74 | 74 6f 6e 28 49 2c 30 29 |....#but|ton(I,0)|
|00003470| 2b 3d 58 4f 3a 62 75 74 | 74 6f 6e 28 49 2c 32 29 |+=XO:but|ton(I,2)|
|00003480| 2b 3d 58 4f 0d 13 ce 13 | f2 62 75 74 74 6f 6e 5f |+=XO....|.button_|
|00003490| 64 72 61 77 28 49 29 0d | 13 d8 40 f2 62 75 74 74 |draw(I).|..@.butt|
|000034a0| 6f 6e 5f 74 65 78 74 28 | 49 2c 62 75 74 74 6f 6e |on_text(|I,button|
|000034b0| 28 49 2c 30 29 2b 34 2c | 62 75 74 74 6f 6e 28 49 |(I,0)+4,|button(I|
|000034c0| 2c 31 29 2b 33 32 2c 62 | 75 74 74 6f 6e 5f 74 65 |,1)+32,b|utton_te|
|000034d0| 78 74 24 28 49 29 29 0d | 13 e2 05 cd 0d 13 ec 07 |xt$(I)).|........|
|000034e0| ed 20 49 0d 13 f6 1d 62 | 75 74 74 6f 6e 5f 6d 61 |. I....b|utton_ma|
|000034f0| 72 6b 3d 62 75 74 74 6f | 6e 5f 6e 75 6d 62 65 72 |rk=butto|n_number|
|00003500| 0d 14 00 18 62 75 74 74 | 6f 6e 5f 78 3d 62 75 74 |....butt|on_x=but|
|00003510| 74 6f 6e 5f 6c 65 66 74 | 0d 14 0a 10 62 75 74 74 |ton_left|....butt|
|00003520| 6f 6e 5f 79 2d 3d 34 38 | 0d 14 14 05 e1 0d 14 1e |on_y-=48|........|
|00003530| 04 0d 14 28 20 dd 20 f2 | 62 75 74 74 6f 6e 5f 61 |...( . .|button_a|
|00003540| 72 65 61 28 58 2c 59 2c | 58 53 2c 59 53 2c 56 24 |rea(X,Y,|XS,YS,V$|
|00003550| 29 0d 14 32 27 5a 3d a4 | 62 75 74 74 6f 6e 5f 61 |)..2'Z=.|button_a|
|00003560| 72 65 61 28 58 2c 59 2c | 58 53 2c 59 53 2c 22 22 |rea(X,Y,|XS,YS,""|
|00003570| 2c 56 24 2c 30 2c 30 29 | 0d 14 3c 05 e1 0d 14 46 |,V$,0,0)|..<....F|
|00003580| 04 0d 14 50 20 dd 20 a4 | 62 75 74 74 6f 6e 5f 65 |...P . .|button_e|
|00003590| 76 61 6c 28 53 24 2c 56 | 24 29 3a ea 20 58 53 2c |val(S$,V|$):. XS,|
|000035a0| 4e 0d 14 5a 11 58 53 3d | 31 36 2a a9 28 53 24 29 |N..Z.XS=|16*.(S$)|
|000035b0| 2b 38 0d 14 64 36 4e 3d | a4 62 75 74 74 6f 6e 5f |+8..d6N=|.button_|
|000035c0| 61 72 65 61 28 62 75 74 | 74 6f 6e 5f 78 2c 62 75 |area(but|ton_x,bu|
|000035d0| 74 74 6f 6e 5f 79 2c 58 | 53 2c 34 34 2c 53 24 2c |tton_y,X|S,44,S$,|
|000035e0| 56 24 2c 36 33 2c 33 29 | 0d 14 6e 11 62 75 74 74 |V$,63,3)|..n.butt|
|000035f0| 6f 6e 28 4e 2c 34 29 3d | 32 0d 14 78 12 62 75 74 |on(N,4)=|2..x.but|
|00003600| 74 6f 6e 5f 78 2b 3d 58 | 53 2b 34 0d 14 82 06 3d |ton_x+=X|S+4....=|
|00003610| 4e 0d 14 8c 04 0d 14 96 | 1b dd 20 a4 62 75 74 74 |N.......|.. .butt|
|00003620| 6f 6e 5f 69 6e 70 75 74 | 28 4e 29 3a ea 20 58 53 |on_input|(N):. XS|
|00003630| 0d 14 a0 0d 58 53 3d 31 | 36 2a 4e 2b 38 0d 14 aa |....XS=1|6*N+8...|
|00003640| 37 4e 3d a4 62 75 74 74 | 6f 6e 5f 61 72 65 61 28 |7N=.butt|on_area(|
|00003650| 62 75 74 74 6f 6e 5f 78 | 2c 62 75 74 74 6f 6e 5f |button_x|,button_|
|00003660| 79 2c 58 53 2c 34 34 2c | 22 22 2c 22 22 2c 36 30 |y,XS,44,|"","",60|
|00003670| 2c 34 38 29 0d 14 b4 11 | 62 75 74 74 6f 6e 28 4e |,48)....|button(N|
|00003680| 2c 34 29 3d 33 0d 14 be | 12 62 75 74 74 6f 6e 5f |,4)=3...|.button_|
|00003690| 78 2b 3d 58 53 2b 34 0d | 14 c8 06 3d 4e 0d 14 d2 |x+=XS+4.|...=N...|
|000036a0| 04 0d 14 dc 1c dd 20 a4 | 62 75 74 74 6f 6e 5f 6d |...... .|button_m|
|000036b0| 73 67 28 53 24 29 3a ea | 20 58 53 2c 4e 0d 14 e6 |sg(S$):.| XS,N...|
|000036c0| 11 58 53 3d 31 36 2a a9 | 28 53 24 29 2b 38 0d 14 |.XS=16*.|(S$)+8..|
|000036d0| f0 36 4e 3d a4 62 75 74 | 74 6f 6e 5f 61 72 65 61 |.6N=.but|ton_area|
|000036e0| 28 62 75 74 74 6f 6e 5f | 78 2c 62 75 74 74 6f 6e |(button_|x,button|
|000036f0| 5f 79 2c 58 53 2c 34 34 | 2c 53 24 2c 22 22 2c 30 |_y,XS,44|,S$,"",0|
|00003700| 2c 31 32 29 0d 14 fa 11 | 62 75 74 74 6f 6e 28 4e |,12)....|button(N|
|00003710| 2c 34 29 3d 31 0d 15 04 | 12 62 75 74 74 6f 6e 5f |,4)=1...|.button_|
|00003720| 78 2b 3d 58 53 2b 34 0d | 15 0e 06 3d 4e 0d 15 18 |x+=XS+4.|...=N...|
|00003730| 04 0d 15 22 27 dd 20 a4 | 62 75 74 74 6f 6e 5f 61 |..."'. .|button_a|
|00003740| 72 65 61 28 58 2c 59 2c | 58 53 2c 59 53 2c 53 24 |rea(X,Y,|XS,YS,S$|
|00003750| 2c 56 24 2c 46 2c 42 29 | 0d 15 2c 1d 62 75 74 74 |,V$,F,B)|..,.butt|
|00003760| 6f 6e 28 62 75 74 74 6f | 6e 5f 6e 75 6d 62 65 72 |on(butto|n_number|
|00003770| 2c 30 29 3d 58 0d 15 36 | 1d 62 75 74 74 6f 6e 28 |,0)=X..6|.button(|
|00003780| 62 75 74 74 6f 6e 5f 6e | 75 6d 62 65 72 2c 31 29 |button_n|umber,1)|
|00003790| 3d 59 0d 15 40 20 62 75 | 74 74 6f 6e 28 62 75 74 |=Y..@ bu|tton(but|
|000037a0| 74 6f 6e 5f 6e 75 6d 62 | 65 72 2c 32 29 3d 58 2b |ton_numb|er,2)=X+|
|000037b0| 58 53 0d 15 4a 20 62 75 | 74 74 6f 6e 28 62 75 74 |XS..J bu|tton(but|
|000037c0| 74 6f 6e 5f 6e 75 6d 62 | 65 72 2c 33 29 3d 59 2b |ton_numb|er,3)=Y+|
|000037d0| 59 53 0d 15 54 1d 62 75 | 74 74 6f 6e 28 62 75 74 |YS..T.bu|tton(but|
|000037e0| 74 6f 6e 5f 6e 75 6d 62 | 65 72 2c 34 29 3d 30 0d |ton_numb|er,4)=0.|
|000037f0| 15 5e 1d 62 75 74 74 6f | 6e 28 62 75 74 74 6f 6e |.^.butto|n(button|
|00003800| 5f 6e 75 6d 62 65 72 2c | 35 29 3d 46 0d 15 68 1d |_number,|5)=F..h.|
|00003810| 62 75 74 74 6f 6e 28 62 | 75 74 74 6f 6e 5f 6e 75 |button(b|utton_nu|
|00003820| 6d 62 65 72 2c 36 29 3d | 42 0d 15 72 22 62 75 74 |mber,6)=|B..r"but|
|00003830| 74 6f 6e 5f 74 65 78 74 | 24 28 62 75 74 74 6f 6e |ton_text|$(button|
|00003840| 5f 6e 75 6d 62 65 72 29 | 3d 53 24 0d 15 7c 22 62 |_number)|=S$..|"b|
|00003850| 75 74 74 6f 6e 5f 65 76 | 61 6c 24 28 62 75 74 74 |utton_ev|al$(butt|
|00003860| 6f 6e 5f 6e 75 6d 62 65 | 72 29 3d 56 24 0d 15 86 |on_numbe|r)=V$...|
|00003870| 14 62 75 74 74 6f 6e 5f | 6e 75 6d 62 65 72 2b 3d |.button_|number+=|
|00003880| 31 0d 15 90 14 3d 62 75 | 74 74 6f 6e 5f 6e 75 6d |1....=bu|tton_num|
|00003890| 62 65 72 2d 31 0d 15 9a | 04 0d 15 a4 26 dd 20 a4 |ber-1...|....&. .|
|000038a0| 62 75 74 74 6f 6e 5f 72 | 65 61 64 28 4e 29 3a 3d |button_r|ead(N):=|
|000038b0| 62 75 74 74 6f 6e 5f 74 | 65 78 74 24 28 4e 29 0d |button_t|ext$(N).|
|000038c0| 15 ae 04 0d 15 b8 27 dd | 20 a4 62 75 74 74 6f 6e |......'.| .button|
|000038d0| 5f 77 72 69 74 65 28 4e | 2c 53 24 29 3a ea 20 58 |_write(N|,S$):. X|
|000038e0| 2c 59 2c 58 53 2c 59 53 | 2c 4c 0d 15 c2 1b 4c 3d |,Y,XS,YS|,L....L=|
|000038f0| a7 62 75 74 74 6f 6e 5f | 74 65 78 74 24 28 4e 29 |.button_|text$(N)|
|00003900| 2c 22 3a 22 29 0d 15 cc | 16 58 3d 62 75 74 74 6f |,":")...|.X=butto|
|00003910| 6e 28 4e 2c 30 29 2b 31 | 36 2a 4c 0d 15 d6 11 59 |n(N,0)+1|6*L....Y|
|00003920| 3d 62 75 74 74 6f 6e 28 | 4e 2c 31 29 0d 15 e0 14 |=button(|N,1)....|
|00003930| 58 53 3d 62 75 74 74 6f | 6e 28 4e 2c 32 29 2d 58 |XS=butto|n(N,2)-X|
|00003940| 0d 15 ea 26 e6 20 62 75 | 74 74 6f 6e 28 4e 2c 36 |...&. bu|tton(N,6|
|00003950| 29 3a c8 93 20 c8 90 20 | 58 2b 34 2c 59 2c 58 53 |):.. .. |X+4,Y,XS|
|00003960| 2d 31 30 2c 34 30 0d 15 | f4 2d f2 62 75 74 74 6f |-10,40..|.-.butto|
|00003970| 6e 5f 74 65 78 74 28 4e | 2c 58 2b 28 58 53 2d 31 |n_text(N|,X+(XS-1|
|00003980| 36 2a a9 28 53 24 29 29 | 2f 32 2c 59 2b 33 32 2c |6*.(S$))|/2,Y+32,|
|00003990| 53 24 29 0d 15 fe 2a 62 | 75 74 74 6f 6e 5f 74 65 |S$)...*b|utton_te|
|000039a0| 78 74 24 28 4e 29 3d c0 | 62 75 74 74 6f 6e 5f 74 |xt$(N)=.|button_t|
|000039b0| 65 78 74 24 28 4e 29 2c | 4c 29 2b 53 24 0d 16 08 |ext$(N),|L)+S$...|
|000039c0| 06 3d 30 0d 16 12 04 0d | 16 1c 1c dd 20 f2 62 75 |.=0.....|.... .bu|
|000039d0| 74 74 6f 6e 5f 74 65 78 | 74 28 4e 2c 58 2c 59 2c |tton_tex|t(N,X,Y,|
|000039e0| 53 24 29 0d 16 26 39 e6 | 20 62 75 74 74 6f 6e 28 |S$)..&9.| button(|
|000039f0| 4e 2c 35 29 3a ec 20 58 | 2c 59 3a ef 20 35 3a f1 |N,5):. X|,Y:. 5:.|
|00003a00| 20 53 24 3a ef 20 34 2c | 32 33 2c 31 2c 30 2c 30 | S$:. 4,|23,1,0,0|
|00003a10| 2c 30 2c 30 2c 30 2c 30 | 2c 30 2c 30 0d 16 30 05 |,0,0,0,0|,0,0..0.|
|00003a20| e1 0d 16 3a 04 0d 16 44 | 1e dd 20 f2 62 75 74 74 |...:...D|.. .butt|
|00003a30| 6f 6e 5f 64 72 61 77 28 | 4e 29 3a ea 20 58 2c 59 |on_draw(|N):. X,Y|
|00003a40| 2c 58 53 0d 16 4e 30 58 | 3d 62 75 74 74 6f 6e 28 |,XS..N0X|=button(|
|00003a50| 4e 2c 30 29 3a 59 3d 62 | 75 74 74 6f 6e 28 4e 2c |N,0):Y=b|utton(N,|
|00003a60| 31 29 3a 58 53 3d 62 75 | 74 74 6f 6e 28 4e 2c 32 |1):XS=bu|tton(N,2|
|00003a70| 29 2d 58 0d 16 58 11 e6 | 20 62 75 74 74 6f 6e 28 |)-X..X..| button(|
|00003a80| 4e 2c 36 29 0d 16 62 18 | c8 93 20 c8 90 20 58 2b |N,6)..b.|.. .. X+|
|00003a90| 34 2c 59 2c 58 53 2d 31 | 30 2c 34 30 0d 16 6c 19 |4,Y,XS-1|0,40..l.|
|00003aa0| c8 93 20 c8 90 20 58 2b | 32 2c 59 2b 34 2c 58 53 |.. .. X+|2,Y+4,XS|
|00003ab0| 2d 36 2c 33 32 0d 16 76 | 17 c8 93 20 c8 90 20 58 |-6,32..v|... .. X|
|00003ac0| 2c 59 2b 38 2c 58 53 2d | 32 2c 32 34 0d 16 80 05 |,Y+8,XS-|2,24....|
|00003ad0| e1 0d 16 8a 04 0d 16 94 | 1a dd 20 f2 62 75 74 74 |........|.. .butt|
|00003ae0| 6f 6e 5f 70 6f 6c 6c 3a | ea 20 58 2c 59 2c 4b 0d |on_poll:|. X,Y,K.|
|00003af0| 16 9e 1b c8 97 20 58 2c | 59 2c 4b 3a e7 20 4b 3d |..... X,|Y,K:. K=|
|00003b00| 30 20 8c 20 4b 3d a6 28 | 30 29 0d 16 a8 31 e7 20 |0 . K=.(|0)...1. |
|00003b10| 4b 3e 30 20 8c 20 f2 62 | 75 74 74 6f 6e 5f 63 68 |K>0 . .b|utton_ch|
|00003b20| 65 63 6b 28 58 2c 59 2c | 4b 29 3a f5 3a c8 97 20 |eck(X,Y,|K):.:.. |
|00003b30| 58 2c 59 2c 4b 3a fd 20 | 4b 3d 30 0d 16 b2 05 e1 |X,Y,K:. |K=0.....|
|00003b40| 0d 16 bc 04 0d 16 c6 2f | dd 20 f2 62 75 74 74 6f |......./|. .butto|
|00003b50| 6e 5f 63 68 65 63 6b 28 | 58 2c 59 2c 4b 29 3a ea |n_check(|X,Y,K):.|
|00003b60| 20 4e 2c 58 30 2c 59 30 | 2c 58 53 2c 59 53 2c 4c | N,X0,Y0|,XS,YS,L|
|00003b70| 2c 53 24 0d 16 d0 1b e3 | 20 4e 3d 30 20 b8 20 62 |,S$.....| N=0 . b|
|00003b80| 75 74 74 6f 6e 5f 6e 75 | 6d 62 65 72 2d 31 0d 16 |utton_nu|mber-1..|
|00003b90| da 41 e7 20 58 3e 3d 62 | 75 74 74 6f 6e 28 4e 2c |.A. X>=b|utton(N,|
|00003ba0| 30 29 80 59 3e 3d 62 75 | 74 74 6f 6e 28 4e 2c 31 |0).Y>=bu|tton(N,1|
|00003bb0| 29 80 58 3c 62 75 74 74 | 6f 6e 28 4e 2c 32 29 80 |).X<butt|on(N,2).|
|00003bc0| 59 3c 62 75 74 74 6f 6e | 28 4e 2c 33 29 20 8c 0d |Y<button|(N,3) ..|
|00003bd0| 16 e4 45 58 30 3d 62 75 | 74 74 6f 6e 28 4e 2c 30 |..EX0=bu|tton(N,0|
|00003be0| 29 3a 59 30 3d 62 75 74 | 74 6f 6e 28 4e 2c 31 29 |):Y0=but|ton(N,1)|
|00003bf0| 3a 58 53 3d 62 75 74 74 | 6f 6e 28 4e 2c 32 29 2d |:XS=butt|on(N,2)-|
|00003c00| 58 30 3a 59 53 3d 62 75 | 74 74 6f 6e 28 4e 2c 33 |X0:YS=bu|tton(N,3|
|00003c10| 29 2d 59 30 0d 16 ee 14 | c8 8e 20 62 75 74 74 6f |)-Y0....|.. butto|
|00003c20| 6e 28 4e 2c 34 29 20 ca | 0d 16 f8 1c c9 20 30 3a |n(N,4) .|..... 0:|
|00003c30| 4b 3d a0 28 62 75 74 74 | 6f 6e 5f 65 76 61 6c 24 |K=.(butt|on_eval$|
|00003c40| 28 4e 29 29 0d 17 02 0f | c9 20 32 3a e7 20 4b 3c |(N))....|. 2:. K<|
|00003c50| 38 20 8c 0d 17 0c 2a 20 | 20 20 20 20 20 20 c8 96 |8 ....* | ..|
|00003c60| 3a e6 20 33 2c 36 33 3a | c8 93 20 c8 90 20 58 30 |:. 3,63:|.. .. X0|
|00003c70| 2c 59 30 2c 58 53 2d 31 | 2c 59 53 2d 31 0d 17 16 |,Y0,XS-1|,YS-1...|
|00003c80| 1f 20 20 20 20 20 20 20 | 4b 3d a0 28 62 75 74 74 |. |K=.(butt|
|00003c90| 6f 6e 5f 65 76 61 6c 24 | 28 4e 29 29 0d 17 20 1b |on_eval$|(N)).. .|
|00003ca0| 20 20 20 20 20 20 20 f5 | 3a c8 97 20 58 2c 59 2c | .|:.. X,Y,|
|00003cb0| 4b 3a fd 20 4b 3d 30 0d | 17 2a 2a 20 20 20 20 20 |K:. K=0.|.** |
|00003cc0| 20 20 c8 96 3a e6 20 33 | 2c 36 33 3a c8 93 20 c8 | ..:. 3|,63:.. .|
|00003cd0| 90 20 58 30 2c 59 30 2c | 58 53 2d 31 2c 59 53 2d |. X0,Y0,|XS-1,YS-|
|00003ce0| 31 0d 17 34 0c 20 20 20 | 20 20 20 20 cd 0d 17 3e |1..4. | ...>|
|00003cf0| 28 c9 20 33 3a 4c 3d 28 | 62 75 74 74 6f 6e 28 4e |(. 3:L=(|button(N|
|00003d00| 2c 32 29 2d 62 75 74 74 | 6f 6e 28 4e 2c 30 29 2d |,2)-butt|on(N,0)-|
|00003d10| 38 29 2f 31 36 0d 17 48 | 1d 20 20 20 20 20 20 20 |8)/16..H|. |
|00003d20| 53 24 3d 62 75 74 74 6f | 6e 5f 74 65 78 74 24 28 |S$=butto|n_text$(|
|00003d30| 4e 29 0d 17 52 3d 20 20 | 20 20 20 20 20 e7 20 4b |N)..R= | . K|
|00003d40| 3e 3d 34 38 20 80 20 4b | 3c 3d 35 37 20 84 20 4b |>=48 . K|<=57 . K|
|00003d50| 3e 3d 36 35 20 80 20 4b | 3c 3d 39 30 20 84 20 4b |>=65 . K|<=90 . K|
|00003d60| 3e 3d 39 37 20 80 20 4b | 3c 3d 31 32 32 20 8c 0d |>=97 . K|<=122 ..|
|00003d70| 17 5c 21 20 20 20 20 20 | 20 20 e7 20 a9 28 53 24 |.\! | . .(S$|
|00003d80| 29 3c 4c 20 8c 20 53 24 | 3d 53 24 2b bd 28 4b 29 |)<L . S$|=S$+.(K)|
|00003d90| 0d 17 66 0c 20 20 20 20 | 20 20 20 cd 0d 17 70 24 |..f. | ...p$|
|00003da0| 20 20 20 20 20 20 20 e7 | 20 4b 3d 31 32 37 20 80 | .| K=127 .|
|00003db0| 20 a9 28 53 24 29 20 8c | 20 53 24 3d c0 53 24 29 | .(S$) .| S$=.S$)|
|00003dc0| 0d 17 7a 1e 20 20 20 20 | 20 20 20 f2 62 75 74 74 |..z. | .butt|
|00003dd0| 6f 6e 5f 77 72 69 74 65 | 28 4e 2c 53 24 29 0d 17 |on_write|(N,S$)..|
|00003de0| 84 05 cb 0d 17 8e 05 e1 | 0d 17 98 05 cd 0d 17 a2 |........|........|
|00003df0| 07 ed 20 4e 0d 17 ac 05 | e1 0d ff |.. N....|... |
+--------+-------------------------+-------------------------+--------+--------+
